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SUMMARY 

The Weight Analysis of Turbine Engines (WATE) computer code was developed 
by Boeing under contract to NASA Lewis (ref. 1). It was designed to function 
as an adjunct to the Navy/NASA Engine Program (NNEP) (ref. 2). NNEP calcu- 
lates the design and off-design thrust and sfc performance of User defined 
engine cycles. The thermodynamic parameters throughout the engine as gene- 
rated by NNEP are then combined with input parameters defining the component 
characteristics in WATE to calculate the bare engine weight of this 
User defined engine. 

Preprocessor programs for NNEP were previously developed (ref. 3) to sim- 
plify the task of creating input datasets. This report describes a similar 
preprocessor for the WATE code. 


INTRODUCTION 

The NASA Lewis Research Center in conjunction with the Naval Air Develop- 
ment Center jointly developed a computer code (NNEP) for determining the ther- 
modynamic performance for arbitrary turbine engines, i.e., the code can assem- 
ble arbitrary combinations of specified types of components (such as ducts, 
compressors, turbines, etc.) through the use of input variables rather than 
having to build a computer code exclusively for each engine configuration 
(ref. 2). In order to simplify the task of creating datasets to run on NNEP 
for new or occasional users, a pair of preprocessor programs KONFIG and 
REKONFIG were created (ref. 3). Favorable comments were received from users 
of the preprocessor programs. They also expressed the desire for a similar 
preprocessor for the Weight Analysis of Turbine Engines code (WATE) (ref. 1). 

WATE was developed by Boeing under contract to NASA Lewis. It is capable 
of calculating the component weights and flowpaths of most engines that a user 
of NNEP would wish to study. It was designed to be an adjunct to NNEP and 
receives thermodynamic data from NNEP. Mechanical design variables are then 
set for each of the engine components and the weight and dimensions then 
determined. 





As opposed to NNEP, which treats all of a particular type of component 
(e.g., compressors) thermodynamically the same, WATE distinguishes them by 
type (e.g., fan, low pressure, high pressure). Different modules then calcu- 
late the weight by sub-type. The WATE code requires two main arrays of data, 
IWMEC and DESVAL. IWMEC is a two dimension array where the mechanical design 
inputs such as component type, the existence of frames, stators, and other 
information are stored. DESVAL is also a two dimensional array containing the 
aerodynamic and design inputs such as Mach number in, Mach number out, blade 
aspect ratio, etc. Default values of DESVAL for each component sub-type are 
built into PREPWATE. When the user runs PREPWATE, he will be shown the 
defaulted values as well as the recommended range for each variable. He may 
easily change one or more of the DESVALs for each component in the engine. 

The rest of this report will show the operation of PREPWATE by a sample 
case. 


OPERATION OF PREPWATE 

PREPWATE consists of the main and one subroutine. The main routine 
prompts the User for all of the inputs required and prepares the output data- 
set. The subroutine (SUBROUTINE REDOEM) is called in order to allow the User 
to change one or more of the DESVALs from the defaulted values. 

All reads are from UNIT 30 and prompts for input on UNIT 35. The final 
card images for the inputs to the WATE code are written on UNIT 6 and a data- 
set should be datadeffed to this unit to save the images. 


SAMPLE CASE 

A high bypass ratio separate flow engine will be used to illustrate the 
use of the code. The fan will have booster stages attached to it to raise the 
pressure of the air that will enter the core. These stages are driven by the 
low pressure turbine and the outer dimension of both turbines will be limited 
to the outer dimension of these booster stages. An NNEP thermodynamic sche- 
matic of the engine is shown in figure 1. As indicated, NNEP does not distin- 
guish by subcomponent type, e.g., all compressor thermodynamic calculations 
are done identically. 

The WATE code, on the other hand, requires that the User identify the type 
of subcomponent, e.g., the three compressors are now a fan, a low pressure 
compressor, and a high pressure compressor. The mechanical schematic for the 
WATE code for the NNEP engine in figure 1 is shown in figure 2. The component 
numbers are retained so there is a one to one correspondence with the thermo- 
dynamic model. Note, however, the inlet does not appear in figure 2. Inlet 
weight cannot be calculated by WATE. At NASA Lewis, this weight is calculated 
by the INSTAL computer code (ref. 4) which was also created as an adjunct to 
NNEP. 
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The User is now ready to run PREPWATE. A terminal session for creating 
the WATE input data for this engine is shown in Appendix A. 

As can be seen from Appendix A, the user first defines a dataset on Unit 6 
into which the card images for the WATE code will be written. He then identi- 
fies the library containing the Main Routine and Subroutine and then calls the 
main routine. (A procedure definition containing these instructions has been 
prestored in the LeRC 370/3033 as PREPWATE) . 

The User is then prompted for the required inputs. The first inputs spe- 
cify what plots and whether English or SI units are desired . The second 
inputs are whether or not scaled engines are desired (IWT = 4) or not (IWT = 

2) and for the amount of output desired (IOUTCD = 4 gives total weight, length 
and maximum radius, plus component values, plus stage by stage values). 

Next, the disk weight calculation method to be used is identified (B = 
Boeing, G = Garrett). The User is then asked to identify the component num- 
bers of all the components contributing to the maximum length of the engine 
(exclusive of inlets and water injectors). All the remaining flow components 
in the engine including the shafts, but excluding inlets and water injectors 
are then identified. 

The User will then be prompted to enter the NNEP generic type of each 

component (COMP, TURB, NOZZ, etc.) and then for detailed information about 

each component (type of compressor, are there stators?, frames, etc.). After 
this information has been entered, the code will then print out the defaulted 
values for each DESVAL for each subcomponent as well as the recommended range 
(where appropriate). The User can change any of the defaulted values of 
DESVAL by entering the letter code for the variable followed by the new value 
which MUST include a decimal point. Any or all of the variables may be 
changed in this manner. By entering an "R", the User may review the latest 
values. When satisfied, the User enters a "T" to terminate this component and 
proceed to the next. When all the components are done, the program will 
terminate . 

The card images generated from PREPWATE are shown in Appendix B. The 

extra blanks generated for DESVAL have been eliminated. This dataset must be 

incorporated into a NNEP dataset in order to run the NNEP/WATE combination. 
This dataset is also shown in Appendix B. A brief explanation of this dataset 
is as follows: 

The first card image is the NNEP Title Card; 

Next, the first block of Namelist D data. The defaulted values for all 
variables are being used. 

The second block of Namelist D data for NNEP is then displayed. This 
represents the configuration and design spec data for Mode 1. (There is only 
one mode in this engine). There is an IWT = 4 card which tells the code that 
weight should be calculated after this NNEP point has been run. This triggers 
the code so that the WATE code is called. 
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The WATE code calls for the Namelist W data and the card images created by 
PREPWATE are entered here. The NNEP/WATE code is now ready to run. The 
answers to the sample case are shown in Appendix C. The interactive graphics 
Capability of the code (ref. 5) was used to generate a graphics plot of the 
engine (PLOT = T in & W) . This plot has been reproduced in figure 3. Note 
that the LPC (component 6) overlaps the duct (component 4). Changes to the 
DESVALs of components 2, 4 and/or 6 can be implemented to generate a better 
flowpath, either by going back to the original dataset or using the interac- 
tive method of reference 5 at the graphics scope. 

The PREPWATE computer code listings are shown in Appendix D. 


CONCLUSIONS 

PREPWATE has been created to help Users of the WATE code to prepare input 
datasets for the code. It is tutorial in nature and hopefully will prove to 
be as useful as the preprocessors KONFIG and REKONFIG for the NNEP computer 
code. The code is available from the author in card form ( 600 cards) or on a 
User supplied tape. 
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OOfcf FtOfcfOOijVS WATT6PAT A 

06e^ me jVpj Lt O* PRepwATC , OPTION C 


GO » PREPWATE 

ENTER VALUES FOR IPLTCPRINTER PLOl), PLOTC GRAPHICS PLOT), ISIKSI INPUT), ISIOCSI OUTPUT) — T OR F 

ENTER VALUES FOR IUT C2=N0 AIRFLOW SCALING. 4=WITH JJ^LOW SCALING) AND 
IOUTCD (0=WT,L, l MAX R, 1 =ADD COMPONENT UTS,2=ADD STAGE BY STAGE OUTPUT 

4 2 

DO YOU MAHI BOEING OR GARRETT METHOD FOR DISK HEIGHT CALCULATIONS! 

ENTER B FOR BOEING OR G FOR GARRETT 

ENTER COMPONENT NUMBERS OF ALL COMPONENTS < EXCLUSIVE OF INLETS AHD MINTS) THAT CONTRIBUTE TO MAX LENGTH OF ENGINE IRT. A 
DJ.) ___ 

ENTER COMPONENT^ NUMBERS OF AL L ^REMAINING COMPONENTS (EXCLUSIVE OF INLETS, WIHJS, LOADS , CNTLS .OPTVS , I LIMVS) 

YOU°WILL NOW BE PROMPTED FOR THE GENERIC (NNEP ) TYPE FOR EACH COMPONENT (COMP.TURB, ETC.) 

COMPONENT 2 IS A (A4) 

COMP 

COMPONENT 3 IS A CA4) 

SPIT 

COMPONENT 6 IS A <A4> 

COMP 

COMPONENT 7 IS A (A*) 

DUCT 

COMPONENT S IS A (A4) 

COMP 

COMPONENT 17 IS A (A4) 

DUCT 

COMPONENT 9 IS A (A4> 

DUCT 

COMPONENT 10 IS A (A4) 

TURB 

COMPONENT 11 IS A <A4) 

“*ducT 

COMPONENT 12 IS A <A4) 

TUrb 

COMPONENT IS IS A (A4) 

ducT 

^COMPONENT 14 IS A ( A4 ) 

"nOZ2 

COMPONENT 4 IS A (A4) 


APPENDIX A 


DUCT 

COMPONENT 5 15 A (A6) 


NOZZ 

COMPONENT 15 IS A (A6) 
SHTf 

COMPONENT 16 IS A (A6) 


FOR EACH NNEP COMPONENT YOU MILL BE PROMPTED FOR THE MATE SUBCOMPONENT 
COMPONENT 2 IS A COMPRESSOR, OPTIONS ARE (ENTER CORRECT LETTER) 

A- TYPICAL FAN 

B- OUTER PORTION OF NON-ROTATING SPLITTER FAN 
C- INNER PORTION OF NON-ROTATING SPLITTER FAN 
D- OUTER PORTION OF ROTATING SPLITTER FAN 
E- INNER PORTION OF ROTATING SPLITTER FAN 
F- LOW PRESSURE COMPRESSOR 
G- NIGH PRESSURE COMPRESSOR 

INDICATE MHETHER THERE ARE STATORS OR IF THIS IS A CENTRIFUGAL COMPRESSOR 
A- CALCULATE STATOR MEIGHT 
B- NO STATOR MEIGHT 
C- CENTRIFUGAL COMPRESSOR 

B 

INDICATE MHETHER THERE IS A FRONT FRAME IN THE COMPRESSOR 
B- 5NGL R BEARING FRAME FOR TFS AND TJS MITHOUT POMER TAKEOFF (PTO) 

D- fi^^A^^^gAKl^^X^SDS OUTMARD TOTHE FAN OUTER CASE AND HOLDS TMO BEARINGS MITH PTO 

Indicate mhether there is a rear frame in the compressor 

A- NO FRAME 

B- SNGL BEARING FRAME FOR TFS AND TJS MITHOUT POMER TAKEOFF (PTO) 

D- TWO^B EARING^ FRAME^MHICH^ EXT ENDS OUTMARD TOTHE FAN OUTER CASE AND HOLDS TMO BEARINGS MITH PTO 
D 

GEAR BOX INDICATOR, 0= NO GEAR BOX, N=SHAFT NUMBER FOR GEAR BOX 


YOU MAY SPECIFY THE NUMBER OF STAGES-OVERRIDE5 MAX PR/5TG. , OTHERMISE ENTER 0 


FAN/COMPRESSOR 
CODE VALUE DESCRIPTION 

A 0.5500 FACE INLET MACH NUMBER 

B 1.70000 MAX 1ST STAGE PRATIO 

C 0.650 COMPRESSOR FACE HUB TO TIP RATIO 
*“D 1.5000 BLADE SOLIDITY (CORD/SPACING) 

E 6.0000 BLADE ASPECT RATIO-1ST STAGE 

F 3.0000 BLADE ASPECT RATIO-LAST STAGE 

G 0.6500 COMPRESSOR EXIT MACH NUMBER 

H 0.0000 MAX. COMP. INLET T~ 0=CALC'D 

I 0.0000 MAX. COMP. EXIT T- 0=CALC'D 

J 1.0000 MAX. SPEED RATIO RPflMAX/RPMD 

K 0.0000 BLADE MATERIAL DENSITY 0=T-SET 

*1L 2. 1=C0N5T.HUB,2=MEAN,3=TIP DESM. 

M 1.0000 RPM SCALER TO HATCH KNOWN RPM 

H 0.0000 TEMP FOR MATERIAL CHANGE 

0 0.0000 MEIGHT SCALER 0=AS CALCULATED 


LOM VALUE-HIGH VALUE 
0.5000 0.6000 

1.50000 l.aoooo 

0.600 0.500 

1.0000 1.5000 

3.0000 5.0000 

2.0000 3.0000 

0.6500 0.5500 

0.0000 0.0000 

0.0000 0.0000 

1.0000 1.0000 

0.0000 0.0000 

0. 0. 

1.0000 1.0000 

0.0000 0.0000 

0.0000 0.0000 


P 1.8000 STATOR BLADE TAPER RATIO 1.0010 1.0000 

S 0.0550 BLADE VOLUME RATIO 0.0000 0.0000 

ENTER LETTER FOLLOWED BY VALUE (INCLUDING DECIMAL POINT) OR ENTER 
Q QUIT PROCESSING ENTIRE ENGINE 

R REVIEW UPDATED VALUES 

T TERMINATE - GO ON TO NEXT COMPONENT 

B 1.8 
C .37 
E A. 5 
F A. 5 
G .5 
R 

FAN/COMPRESSOR 


CODE VALUE 

DESCRIPTION 

LOW VALUE- 

-HIGH VALUE 

A 

0.5500 

FACE INLET MACH NUMBER 

0.5000 

0.600ft 

B 

1.60000 

MAX 1ST STAGE PRATIO 

1.50000 

1.80000 

C 

0.370 

COMPRESSOR FACE HUB TO TIP RATIO 

1.400 

0.500 

D 

1.5000 

BLADE SOLIDITY (CORD/SPACING) 

1.0000 

1.5000 

E 

A. 5000 

BLADE ASPECT RATIO-1ST STAGE 

3.0000 

5.0000 

F 

4.5000 

BLADE ASPECT RATIO-LAST STAGE 

2.0000 

3.0000 

G 

0.5000 

COMPRESSOR EXIT MACH HUMBER 

0.4500 

0.5500 

H 

0.0000 

MAX. COMP. IHLET T- Q=CALC'D 

0.0000 

0.0000 

I 

0.0000 

MAX. COMP. EXIT T- 0=CALC'D 

o.aooo 

0.0000 

J 

1.0000 

MAX. SPEED RATIO RPMMAX/RPMD 

1.0000 

I. 0000 

K 

0.0000 

BLADE MATERIAL DENSITY 0=T~SET 

0.0000 

0.0000 

L 

2. 

1 -CONST . HUB,2 = NEAN,3=TIP DESN. 

0 . 

0. 

M 

1.0000 

RPN SCALER TO MATCH KNOWN RPM 

1.0000 

1.0000 

N 

a. oooo 

TEMP FOR MATERIAL CHANGE 

0.0000 

0.0000 

Q 

0.0000 

WEIGHT SCALER Q=AS CALCULATED 

1. 0000 

0.0000 

P 

1.8000 

STATOR BLADE TAPER RATIO 

1.0000 

0.0000 

S 

0.0550 

BLADE VOLUME RATIO 

0.0000 

0.0000 


ENTER LETTER FOLLOWED BY VALUE (INCLUDING DECIMAL POINT) OR ENTER 
Q QUIT PROCESSING ENTIRE ENGINE 

R REVIEW UPDATED VALUES 

T TERMINATE - GO OH TO NEXT COMPONENT 

T 

COMPONENT 3 IS A SPLITTER 

WEIGHT AND LENGTH ARE IGNORED UNLESS FIRST COMPONENT IN THE ENGINE (AFTER INLET) 
IF INNER STREAM IS NOT PRIMARY ENTER A "1" OR ELSE JUST HIT RETURN 


COMPONENT 6 IS A COMPRESSOR, OPTIONS ARE (ENTER CORRECT LETTER) 

A- TYPICAL FAN 

B- OUTER PORTION OF NON-ROTATING SPLITTER FAH 

C- INNER PORTION OF NON-ROTATING SPLITTER FAN 

D- OUTER PORTION OF ROTATING SPLITTER FAN 

E- INNER PORTION OF ROTATING SPLITTER FAN 

_F- LOW PRESSURE COMPRESSOR 
G- HIGH PRESSURE COMPRESSOR 
F 

INDICATE WHETHER THERE ARE STATORS OR IF THIS IS A CENTRIFUGAL COMPRESSOR 
At CALCULATE STATOR WEIGHT 
B- HO STATOR WEIGHT 
C- CENTRIFUGAL COMPRESSOR 

A 

_ INDICATE WHETHER THERE IS A FRONT FRAME IN THE COMPRESSOR 
-A- NO FRAME 

B- SNGL BEARING FRAME FOR TFS AND TJ5 WITHOUT POWER TAKFOFF (PTO) 

C- SINGLE BEARING FRAME WITH PTO 

D- TWO BEARING FRAME WHICH EXTENDS OUTWARD TOTHE FAN OUTER CASE AND HOLDS TWO BEARINGS WITH PTO 



A 

INDICATE WHETHER THERE IS A REAR FRAME IN THE COMPRESSOR 
A- NO FRAME 

B- SNGL BEARING FRAME FOR TFS AND TJS WITHOUT POWER TAKEOFF (PTO) 

C- SINGLE BEARING FRAME WITH PTO 

D- TWO BEARING FRAME WHICH EXTENDS OUTWARD TOTHE FAN OUTER CASE AND HOLDS TWO BEARINGS WITH PTO 
A 

GEAR BOX INDICATOR, 0= NO GEAR BOX, N=SHAFT NUMBER FOR GEAR BOX 

<r 

YOU MAY SPECIFY THE NUMBER OF STAGES-OVERRIDES MAX PR/STG., OTHERWISE ENTER 0 


FAN/COMPRESSOR 
CODE VALUE DESCRIPTION 

A 0.5000 FACE INLET MACH NUMBER 

B 1.50000 MAX 1ST STAGE PRATIO 

C 0.400 COMPRESSOR FACE HUB TO TIP RATIO 
D 1.5000 BLADE SOLIDITY (CORD/SPACING) 

E 4.0000 BLADE ASPECT RATIO-1ST STAGE 

F 3.0000 BLADE ASPECT RATIO-LAST STAGE 

G 0.4500 COMPRESSOR EXIT MACH HUMBER 

H 0.0000 MAX. COMP. INLET T- 0=CALC'D 

I 0.0000 MAX. COMP. EXIT T- 0=CALC'D 

J 1.0000 MAX. SPEED RATIO RPMMAX/RPMD 

K 0.0000 BLADE MATERIAL DENSITY 0=T-SET 

L 2. l=CONST.HUB,2=MEAN,3=TIP OESN. 

M 1.0000 RPM SCALER TO MATCH KNOWN RPM 

N 0.0000 TEMP FOR MATERIAL CHANGE 

0 0.0000 WEIGHT SCALER 0=AS CALCULATED 

P 1.2000 STATOR BLADE TAPER RATIO 

S 0.1200 BLADE VOLUME RATIO 

ENTER LETTER FOLLOWED BY VALUE (INCLUDING DECIMAL POINT) OR ENTER 


LOW VALUE- 

-HIGH VALUE 

0.4500 

0.6000 

1.50000 

1.80000 

A. 400 

0.500 

1.0000 

1.5000 

3.0000 

5.0000 

2.0000 

3.0000 

0.4500 

0.5500 

0.0000 

0.0000 

0.0000 

0.0000 

1.0000 

1.0000 

0.0000 

0.0000 

0 . 

0 . 

1.0000 

1.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 


QUIT PROCESSING ENTIRE ENGINE 
REVIEW UPDATED VALUES 
TERMINATE - GO ON TO NEXT COMPONENT 


Q 
R 
T 

C .85 
E 2. 

F 2. 

L 3. 

T 

COMPONENT 7 IS A DUCT, 
A- PRIMARY BURNER 
B- DUCT BURNER 
C- AUGMENTOR 
D- DUCT 
ENTER LETTER 


OPTIONS ARE (ENTER CORRECT LETTER) 


D 

TYPE OF DUCT 

A- DUMMY - NO WT OR LENGTH 

B- INPUT LENGTH ( WILL SPECIFY L/D OF DUCT ) 

C- LENGTH FROM CONNECTION BETWEEN SPLITTER AND MIXER 
D- CROSSOVER DUCT FOR CENTRIFUGAL COMPRESSORS 
E- DIFFUSER FOR CENTRIFUGAL COMPRESSORS 


~B 

DUCT 

CODE VALUE DESCRIPTION 
A 0.40 DUCT MACII NUMBER 


LOU VALUE-HIGH VALUE 
0.40 0.50 


B 1.00000 LEN/HT IF MODE B 0.00009 0.00000 

C 0.000 DUCT MEAN DIAM. IF =0 CALC. PER NODE DELON 0. 0. 

D -1. IF NODE, 0=MEAN D SPECIFIED, -l=CONN . COMP. 0. 0. 

ENTER LETTER FOLLONED BY VALUE (INCLUDING DECIMAL POINT) OR ENTER 
Q QUIT PROCESSING ENTIRE ENGINE 

R REVIEW UPDATED VALUES 

T TERMINATE - GO ON TO NEXT COMPONENT 

A .AS 
B 5.5 
T 

COMPONENT 0 IS A COMPRESSOR# OPTIONS ARE CENTER CORRECT LETTER) 

A- TYPICAL FAN 

B- OUTER PORTION OF NON-ROTATING SPLITTER FAN 
C- INNER PORTION OF NON-ROTATING SPLITTER FAH 
D- OUTER PORTION OF ROTATING SPLITTER FAN 
E- INNER PORTION OF ROTATING SPLITTER FAN 
F- LOW PRESSURE COMPRESSOR 
G- HIGH PRESSURE COMPRESSOR 
G 

INDICATE WHETHER THERE ARE STATORS OR IF THIS IS A CENTRIFUGAL COMPRESSOR 
A- CALCULATE STATOR WEIGHT 
B- NO STATOR WEIGHT 
C- CENTRIFUGAL COMPRESSOR 

A 

INDICATE WHETHER THERE IS A FRONT FRAME IN THE COMPRESSOR 
A- NO FRAME 

B- SNGL BEARING FRAME FOR TFS AND TJS WITHOUT POWER TAKEOFF (PTO) 

C- SINGLE BEARING FRAME WITH PTO 

D- TWO BEARING FRAME WHICH EXTENDS QUTUARD TOTHE FAN OUTER CASE AND HOLDS TWO BEARINGS WITH PTO 
A 

INDICATE WHETHER THERE IS A REAR FRAME IN THE COMPRESSOR 
A- NO FRAME 

B- SNGL BEARING FRAME FOR TFS AND TJS WITHOUT POWER TAKEOFF (PTO) 

C- SINGLE BEARING FRAME WITH PTO 

D- TWO BEARING FRAME WHICH EXTENDS OUTWARD TOTHE FAN OUTER CASE AND HOLDS TWO BEARINGS WITH PTO 
GEAR BOX INDICATOR, 8= HO GEAR BOX, N=SHAFT HUMBER FOR GEAR BOX 
8 ~~ 

YOU MAY SPECIFY THE NUMBER OF ST AGE5-0VERRIDES MAX PR/STG., OTHERWISE ENTER 0 

r 

FAN/COMPRESSOR 


CODE VALUE 

DESCRIPTION 

LOW VALUE- 

'HIGH VALUE 

A 

0.400 0 

FACE INLET MACH NUMBER 

0 . 4000 

0.5000 

B 

1.40000 

MAX 1ST STAGE PRATIO 

1.40000 

1.70000 

C 

0.700 

COMPRESSOR FACE HUB TO TIP RATIO 

0.600 

0 . BOO 

D 

r.5ooo 

BLADE SOLIDITY ( CQRD/SPACIHG) 

1.0000 

1.5000 

E 

3.0000 

BLADE ASPECT RATIO-15T STAGE 

2.0000 

5.0000 

F 

1.5000 

BLADE ASPECT RATIO-LAST STAGE 

1.0000 

2.0000 

G 

0.3000 

COMPRESSOR EXIT MACH NUMBER 

0.2000 

0.3000 

H 

0.0000 

MAX. COMP. INLET T- 0=CALC'D 

0.0000 

0.0000 

T 

0.0000 

MAX. COMP. EXIT T- 0=CAIC*D 

0.0000 

0.0000 

J 

1.0000 

MAX. SPEED RATIO RPMMAX/RPMD 

1.0000 

I. 0000 

K 

0.0000 

BLADE MATERIAL DENSITY Q=T-SET 

0.0000 

0.0000 

L 

2. 

1 = CON ST . HUB , 2 = MEAH , 3 = TIP DESN. 

0 . 

0 . 

‘n 

1.0000 

RPM SCALER TO MATCH KNOWN RPM 

1 .0000 

1.0000 

H 

0.0000 

TEMP FOR MATERIAL CHANGE 

0 . 0000 

0.0000 

0 

0.0000 

WEIGHT SCALER 0=AS CALCULATED 

0 . 0000 

0.0000 

P 

1.2000 

STATOR BLADE TAPER RATIO 

0 .0000 

0.0000 



0.0000 


S 0 1200 BLADE VOLUME RATIO 0.0000 

ENTER LETTER FOLLOWED BY VALUE (INCLUDING DECIMAL POINT) OR ENTER 
Q QUIT PROCESSING ENTIRE ENGINE 

R REVIEW UPDATED VALUES 

T TERMINATE - GO ON TO NEXT COMPONENT 

A .45 
B 1.31 
C .47 
E 4.5 
L 3. 

COMPONENT 17 IS A DUCT» OPTIONS ARE (ENTER CORRECT LETTER) 

A- PRIMARY BURNER 
B- DUCT BURNER 
C- AUGMENTOR 
D- DUCT 
ENTER LETTER 


TYPE OF DUCT 

A- DUMMY - NO UT OR LENGTH 

B- INPUT LENGTH ( MILL SPECIFY L/D OF DUCT ) 

C- LENGTH FROM CONNECTION BETWEEN SPLITTER AHD MIXER 
D- CROSSOVER DUCT FOR CENTRIFUGAL COMPRESSORS 
E- DIFFUSER FOR CENTRIFUGAL COMPRESSORS 


B 

DUCT 

CODE VALUE DESCRIPTION 
A 0.40 DUCT MACH NUMBER 
B 1.00000 LEN/HT IF MODE B 

C 0.000 DUCT MEAN DIAM. IF =0 CALC. PER NODE BELOW 
D -l. IF NODE* 0=MEAN D SPECIFIED, -l=COMN. COMP. 

ENTER LETTER FOLLOWED BY VALUE (INCLUDING DECIMAL POINT) OR 
Q QUIT PROCESSING ENTIRE ENGINE 

R REVIEW UPDATED VALUES 

T TERMINATE - GO ON TO NEXT COMPONENT 

A .3 
B 8.9 

COMPONENT 9 IS A DUCT, OPTIONS ARE (ENTER CORRECT LETTER) 

A- PRIMARY BURNER 

B- DUCT BURNER 

C- AUGMENTOR 

D- DUCT 

ENTER LETTER 


LOU VALUE-HIGH VALUE 
0.40 1.50 

0.00000 0.00000 
0 . 0 . 

0 . 0 . 

ENTER 


A 

“A- BURNER HAS A FRAME 
B- NO FRAME 


PRIMARY BURNER 
CODE VALUE DESCRIPTION 

A 100.00 BURNER THRU-FLOW VELOCITY 

B 0.01500 AIRFLOW RESIDENCY TIME „ MDT 

“C 0.000 MEAN DIAMETER - IF 0 MATCH' UPSTREAM CMPT. 

D 0. CMPT NUMBER FOR MATCHING DIAMETER 

E 0. HUMBER OF CANS FOR CAN BURNER 


LOW VALUE-HIGH VALUE 


100.00 

0.01000 

0. 

0. 

0. 


t u. nunucK ur rur\ v,«n - ' 

ENTER LETTER FOLLOWED BY VALUE (INCLUDING DECIMAL POINT) OR ENTER 


150.00 

0.02000 

0. 

0 . 

0 . 


018 


QUIT PROCESSING ENTIRE ENGINE 

REVIEW UPDATED VALUES 

TERMINATE - GO ON TO NEXT COMPONENT 


9 
R 
T 

B .018 
T 

COMPONENT 10 IS A TURBINE, OPTIONS ARE (ENTER CORRECT LETTER) 
H- HIGH PRESSURE TURBINE 
L- LOU PRESSURE TURBINE 
H 

A- NO FRAME 
B- TURBINE HAS 


EXIT FRAME 


ENTER COMPONENT NUMBER OF COMPRESSOR THAT SETS TURBINE RPM 


08 

ENTER COMPONENT NUMBER THAT LIMITS TURBINE OUTER RADIUS 
— (* = OUTLET. - = INLET, 0 = FEEDING COMPONENT) 

-08 

YOU MAY ENTER THE NUMBER OF STAGES IF DESIRED, OTHERWISE ENTER 0 

<r 

R- RADIAL FLOW TURBINE 
A- AXIAL FLOW TURBINE 
A 

TURBINE 


CODE VALUE 

DESCRIPTION 

LOW VALUE- 

-HIGH VALUE 

A 

0.3000 

FACE INLET MACH NUMBER 

0.3000 

0.4000 

B 

0.28000 

LOADING PARAMETER 

0.20000 

0.30000 

C 

1.500 

BLADE SOLIDITY (CORD/SPACING) 

1.000 

1.500 

D 

1.5000 

BLADE ASPECT RATIO- 1ST STAGE 

1.0000 

2.0000 

E 

1.5000 

BLADE ASPECT RATIO-LAST STAGE 

l . 0000 

2.0000 

F 

0.4500 

TURBINE EXIT MACH NUMBER 

0.4500 

0.5000 

G 

125000. 

DISC REFERENCE STRESS 

100000. 

150000. 

H 

2. 

1=C0H5T TIP DESN, 2=MEAN , 3-HUB 

0 . 

0 . 

I 

1.0000 

MAX. SPEED RATIO RPMMAX/RPMD 

1 . 0000 

I. 0000 

J 

0.0000 

CONTROL RADIUS- 0 IF TRAHSFRD 

8.0000 

0.0000 

K 

0.0000 

BLADE MATERIAL DENSITY 0=T-SET 

a. oooo 

0.0000 

L 

0.1550 

BLADE VOLUME FACTOR 

0.0000 

0.0000 

P 

1.0000 

BLADE TAPER RATIO 

0.0000 

0.0000 

5 

0.1550 

STATOR BLADE VOLUME FACTOR 

0.0000 

0.0000 

ENTER LETTER FOLLOWED BY VALUE (INCLUDING DECIMAL 

POINT) OR ENTER 

9 


QUIT PROCESSING ENTIRE ENGINE 



R 


REVIEW UPDATED VALUES 



T 

A 

.4 

TERMINATE - GO ON TO NEXT COMPONENT 




B .2 
F .5 

_G 150000. 

H 3. 

T 

COMPONENT II IS A DUCT, OPTIONS ARE CENTER CORRECT LETTER) 
A- PRIMARY BURNER 
B- DUCT BURNER 
C- AUGMENTOR 
D- DUCT 

— ENTER LETTER 
~D 

TYPE OF DUCT 

A- DUMMY - NO WT OR LENGTH 



B- INPUT LENGTH C MILL SPECIFY L/D OF DUCT ) 

C- LENGTH FROM CONNECTION BETWEEN SPLITTER AND MIXER 
D- CROSSOVER DUCT FOR CENTRIFUGAL COMPRESSORS 
E- DIFFUSER FOR CENTRIFUGAL COMPRESSORS 


B 

DUCT 

CODE VALUE 


CODE VALUE DESCRIPTION LOW V 

A 0.40 DUCT MACH NUMBER 0.40 

B I. 00000 LEN/HT IF MODE B 0.000 

C 0.000 DUCT MEAN DIAM. IF =0 CALC. PER NODE BELOW 0. 

D -1. IF NODE, 0 -MEAN D SPECI FIED, -1 =CONN . COMP. 0. 

ENTER LETTER FOLLOWED BY VALUE (INCLUDING DECIMAL POINT) OR ENTER 
Q QUIT PROCESSING ENTIRE ENGINE 

R REVIEW UPDATED VALUES 

T TERMINATE - GO ON TO NEXT COMPONENT 

A .5 
B 3.5 
T 

COMPONENT 12 IS A TURBINE* OPTIONS ARE (ENTER CORRECT LETTER) 

H- HIGH PRESSURE TURBINE 
L~ LOW PRESSURE TURBINE 
L 

A- NO FRAME 

B- TURBINE HAS EXIT FRAME 

B 

ENTER COMPONENT NUMBER OF COMPRESSOR THAT SETS TURBINE RPM 


LOW VALUE-HIGH VALUE 
0.40 0.50 

0.00000 0.00000 
0 . 0 . 

0 . 0 . 


02 

ENTER COMPONENT NUMBER THAT LIMITS TURBINE OUTER RADIUS 

<4 = OUTLET, - = INLET, 0 = FEEDING COMPONENT) 

406 

YOU MAY ENTER THE NUMBER OF STAGES IF DESIRED, OTHERWISE ENTER 0 


0 

R- RADIAL FLOW TURBINE 
A- AXIAL FLOW TURBINE 
A 


CODE VALUE 

DESCRIPTION 

LOW VALUE- 

•HIGH VALUE 

A 

0.4500 

FACE INLET MACH NUMBER 

0.4000 

0 .5000 

B 

0.28000 

LOADING PARAMETER 

0.20000 

0.30000 

C 

1.500 

BLADE SOLIDITY (CORD/SPACING) 

1.000 

1.500 

D 

2.0000 

BLADE ASPECT RATIO- 1ST STAGE 

2.0000 

3.0000 

E 

4.0000 

BLADE ASPECT RATIO-LAST STAGE 

4.0000 

6.0000 

F 

0.5500 

TURBINE EXIT MACH NUMBER 

0.5500 

0.6000 

G 

125000. 

DISC REFERENCE 5TRESS 

100000. 

150000. 

H 

2. 

1=C0N5T TIP DESN,2=MEAN.3=HUB 

0 . 

0. 

I 

I. 0000 

MAX. SPEED RATIO RPMMAX/RPMD 

1.0000 

1.0000 

J 

0.0000 

CONTROL RADIUS- 0 IF TRANSFRD 

0.0000 

0.0000 

K 

0.0000 

BLADE MATERIAL DENSITY 0=T-SET 

0.0000 

0.0000 

L 

0.1950 

BLADE VOLUME FACTOR 

0.0000 

0.0000 

P 

1.0000 

BLADE TAPER RATIO 

0.0000 

0.0000 

S 

0.1950 

STATOR BLADE VOLUME FACTOR 

0.0000 

0.0000 


ENTER LETTER FOLLOWED BY VALUE (INCLUDING DECIMAL POINT) OR ENTER 
Q QUIT PROCESSING ENTIRE ENGINE 

~IR REVIEW UPDATED VALUES 

T TERMINATE - GO ON TO NEXT COMPONENT 

A .5 
B .3 




F .6 

G 150000. 

H 1. 

T 

COMPONENT 13 IS A DUCT. OPTIONS ARE CENTER CORRECT LETTER) 

A- PRIMARY BURNER 

B- DUCT BURNER 

C- AUGMENTOR 

D- DUCT 

ENTER LETTER 


D 

TYPE OF DUCT 

A- DUMMY - NO MT OR LENGTH 

B- INPUT LENGTH C MILL SPECIFY L/D OF DUCT ) 

C- LENGTH FROM CONNECTION BETWEEN SPLITTER AND MIXER 
D- CROSSOVER DUCT FOR CENTRIFUGAL COMPRESSORS 
E- DIFFUSER FOR CENTRIFUGAL COMPRESSORS 


00 


A 

DUCT 

CODE VALUE DESCRIPTION 
A 0 . A 0 DUCT MACH NUMBER 

B 1.00000 LEN/HT IF MODE B 

C 0.000 DUCT MEAN DIAM. IF =0 CALC. PER NODE BELOW 

D -I. IF NODE. Q=MEAN D SP EC I FI ED. -1 =CONH . COMP. 

ENTER LETTER FOLLOWED BY VALUE (INCLUDING DECIMAL POINT) 
Q QUIT PROCESSING ENTIRE ENGINE 

R REVIEW UPOATED VALUES 

T TERMINATE - GO OH TO NEXT COMPONENT 

A .6 
B .5 
T 

COMPONENT 14 IS A NOZZLE. ENTER NOZZLE TYPE 
1= CONVERGENT 
2= C-D VARIABLE AREA 
I 

ENTER COMPONENT NUMBER THAT LIMITS NOZZLE OUTER RADIUS 
(♦ = OUTLET. - = INLET. 0 = FEEDING COMPONENT) 

0 

ENTER THRUST REVERSER TYPE, 0 =NQNE » 1 =FAN» 2 = PRIMARY 


LOW VALUE-HIGH VALUE 
0.40 0.50 

0.00000 9.00000 

0 . 9 . 

0 . 0 . 

OR EHTER 


0 

NOZZLE 

CODE VALUE DESCRIPTION LOW VALUE-HIGH VALUE 

A 1.0000 LENGTH TO DIAMETER RATIO 1.0000 2.0000 

B 0.0000 BYPASS RATIO FOR MIXED FLOW 0.0000 0.0000 

_ENTER LETTER FOLLOWED BY VALUE (INCLUDING DECIMAL POINT) OR ENTER 
Q QUIT PROCESSING ENTIRE ENGINE 

R REVIEW UPDATED VALUES 

T TERMINATE - GO ON TO NEXT COMPONENT 

T 

COMPONENT 4 IS A DUCT, OPTIONS ARE (ENTER CORRECT LETTER) 

A- PRIMARY BURNER 
B- DUCT BURNER 
C- AUGMENTOR 
-D- DUCT 
ENTER LETTER 


D 


TYPE OF DUCT 

A- DUMMY - NO UT OR LENGTH 

B~ INPUT LENGTH ( MILL SPECIFY L/D OF DUCT ) 

C- LENGTH FROM CONNECTION BETWEEN SPLITTER AND MIXER 
D- CROSSOVER DUCT FOR CENTRIFUGAL COMPRESSORS 
E- DIFFUSER FOR CENTRIFUGAL COMPRESSORS 


B 

DUCT 

CODE VALUE 
A 0.40 
B 1.00000 
C 0.000 
D -I. 

ENTER 

Q 


DESCRIPTION 
DUCT MACH NUMBER 
LEN/HT IF MODE B 

DUCT MEAN DIAM. IF =0 CALC. PER NODE BELOU 
IF NODE* 0=MEAN D SPECI FI ED, -1 = CONN . COMP. 
LETTER FOLLOUED BY VALUE (INCLUDING DECIMAL POINT) 
QUIT PROCESSING ENTIRE ENGINE 
REVIEU UPDATED VALUES 
TERMINATE - GO ON TO NEXT COMPONENT 


LOU VALUE-HIGH VALUE 


OR 


R 
T 

A .5 
T 

COMPONENT 5 IS A NOZZLE, ENTER NOZZLE TYPE 
1= CONVERGENT 
2= C-D VARIABLE AREA 


0.40 

0.00000 

0 . 

0. 

ENTER 


0.50 
0.00000 
0. 

0. 


1 

ENTER COMPONENT NUMBER THAT LIMITS NOZZLE OUTER RADIUS 

<♦ = OUTLET, - = INLET, 0 = FEEDING COMPONENT) 

0 

ENTER THRUST REVERSER TYPE. 0=N0NE, 1 =FAN, 2=PRIMARY 


0 

NOZZLE 

CODE VALUE DESCRIPTION LOU VALUE-HIGH VALUE 

A 1. 0000 LENGTH TO DIAMETER RATIO 1.0000 2.0000 

B 0.0000 BYPASS RATIO FOR MIXED FLOU 0.0000 0.0000 

ENTER LETTER FOLLONED BY VALUE (INCLUDING DECIMAL POINT) OR ENTER 
Q QUIT PROCESSING ENTIRE ENGINE 

R REVIEU UPDATED VALUES 

T TERMINATE - GO ON TO NEXT COMPONENT 

T 

COMPONENT 15 IS A SHAFT, ENTER SHAFT NUMBER FROM INNER TO OUTER, I.E. 1 2 3 ETC. 

I 

ENTER TURBINES CONNECTED TO THIS SHAFT 


12 

ENTER COMPONENT NUMBER OF FIRST COMPRESSOR ON THIS SHAFT 


02 

“SHAFT 
CODE VALUE 
A 50000.00 
B 0.29 
C 0.0000 
D 0. 

E 0. 

F 0. 

“G 0. 


DESCRIPTION 
SHAFT ALLOUABLE STRESS 
SHAFT MATERIAL DEN5ITY 
DIAMETER RATIO ( INHER/OUT ER ) 

COMPONENT NUMBER OH SHAFT FOR INERTIA 
COMPONENT NUMBER ON SHAFT FOR INERTIA 
COMPONENT NUMBER ON SHAFT FOR INERTIA 
COMPONENT NUMBER ON SHAFT FOR INERTIA 


LOU VALUE-HIGH VALUE 
40000.00 50000.00 

0.28 0.31 

0.0000 0.8500 

0 . 0 . 

0 . 0 . 

0 . 0 . 

0 . 0 . 


ENTER LETTER FOLLOUED BY VALUE (INCLUDING 
Q QUIT PROCESSING ENTIRE ENGINE 


DECIMAL POINT) OR ENTER 


R REVIEW UPDATED VALUES 

T TERMINATE - GO ON TO NEXT COMPONENT 

8 .3 
C .85 
D 2. 

E 6. 

F 12. 

T 

COMPONENT 16 IS A SHAFT. ENTER SHAFT NUMBER FROM INNER TO OUTER. I.E. 123 ETC. 
2 

ENTER TURBINES CONNECTED TO THIS SHAFT 


10 

ENTER COMPONENT HUMBER OF FIRST COMPRESSOR OH THIS SHAFT 


08 

5HAFT 

CODE VALUE DESCRIPTION 
A 50000.00 SHAFT ALLOWABLE STRESS 
B 0.29 SHAFT MATERIAL DENSITY 
C 0.0000 DIAMETER RATIO ( IHNER/OUTER) 

D 0 . COMPONENT NUMBER ON SHAFT FOR 

E 0. COMPONENT NUMBER OH SHAFT FOR 

F 0. COMPONENT NUMBER ON SHAFT FOR 

G 0. COMPONENT HUMBER OH SHAFT FOR 


LOW VALUE-HIGH VALUE 
40000.00 50000.00 


INERTIA 

0.28 

0.0000 

0 . 

0.31 

6.8500 

0 . 

INERTIA 

0 . 

0 . 

INERTIA 

0 . 

8. 

INERTIA 

0 . 

0 . 


ENTER LETTER FOLLOWED BY VALUE (INCLUDING DECIMAL POINT) OR ENTER 
Q QUIT PROCESSING ENTIRE ENGINE 

R REVIEW UPDATED VALUES 

T TERMINATE - GO ON TO NEXT COMPONENT 

B .3 
D 8. 

E 10. 

T 

TERMINATED* STOP 



cr> 


I U IPLT= T.PLOT= T ,1511= F,ISIQ= F, 

INT=4,I0UTCD=2. 

DISKWI =0 . , ACCS=0 . 1 , ISCALE( 1 1=2, 3, SCALEd 1 = 1 . # .8# 1 . 2, ACCARf1=0 
ILENG( 11 = 2* 3, 6 , 7, 8.17, 9,10,11,12,13,14, 

IWHECd, 2 1=4HFAN , 0, 0, 4, 0, 0, 0, 

I14MECU, 31 = 4I1SPLT , 0, 0, 0, 0, 0, 0, 

1 14MEC ( 1 , 4 ) =4HDUCT , 2, 0, 0, 0, 0, 0, 

IWMECd. 5 ) -4IIIIOZ , 1, 0, 0, 0, 0, 0, 

IWMECd, 6 ) =4IILPC , 1, 0. 0, 0, 0, 0. 

IWtlECd. 7 ) =4MDUCT , 2, 0, 0, 0, 0, 0, 

IWMECd. 8 1=4HHPC , 1, 0, 0, 0, 0, 0, 

IUMECC1, 91=4HPBUR, 1, 0, 0, 0, 0, 0, 

1UMEC( 1,1 0 1=4HHPT , 0, 6, -8, 0, 0, 0, 

IWMECd. 111=4HDUCT, 2, 0, 0, 0, 0. 0, 

IWMECd »121=4HLPT , 1, 2, 6, 0, 0, 0. 

IWMECd , 1 31=41IDUCT * 1, 0, 0, 0, 0, 0, 

IWMECd , 14 ) =4IINOZ , 1, 0, 0, 0, 0, 0, 

IWMECd, 151=4HSHAF, 1, 12, 0, 0, 0, 2, 

IWMECd, 161=4H5HAF. 2, 10, 0, 0, 0, 8, 

IWHECd, 171=4HDUCT, 2, 0, 0, 0, 0, 0. 


DESVAl (1,2 1=0.550 0,1. 80 0,0. 37 00, 1 .500,4.500,4.500,0.5000, 
0.0000,0.0000,1.000,0.0000,2.000,1. 000,0. 00 00, 0.0000, 1.800 ,0.55000-01 , 
DESVAL (1,3 1=0.0000,0. 0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 

0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 
DESVAK1 ,41=0.5000,1 .000,0 .0000,-1 .000,0.0000,0.0000,0.0000, 
0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 
DESVAL (1 ,51=1 .000, 0.0000, 0.0000, 0.0000,0. 0000 ,0.0000, 0.0000, 

0 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 
DESVAL (1,6 1 = 0. 5000,1 .500,0 .8500, 1 .500,2.000,2.000,0.4500, 

0 0000,0.0000,1.000,0.0000,3.000,1.000,0.0000,0.0000,1.200,0.1200, 
DESVAL (1,7 1=0. 4500, 5. 50 0,0. 000 0,-1 .000,0.0000,0.0000,0.0000, 

0 0000, 0.0000, 0.0000, 0.0000, 0.0000,0. 0000, 0.0000,0. 0000,0. 0000, O.OOOOi 
DESVAL( 1,8 1=0. 4500, 1.310, 0.4700, 1.500, 4. 500, 1.500, 0.3000, 

0 0000,0.0000,1.000,0.0000,3.000,1.000,0.0000,0.0000,1.200,0.1200, 
DESVAL (1,91=100.0,0.18000-01 ,0 .0000,0 . 0000,0.0000,0. 0000,0.0000, 

0.0000, 0.0000, 0.0000, 0.0000, o.oooo, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000 
DESVAL (1,101=0.4000,0.2000,1 .500, 1.500, 1.500, 0.5000, 0.1500 DO 6, 

3 . 000 . 1.000.0.0000.0.0000.0.1550.0.0000.0.0000.0.0000.1.000.0.1550, 
DESVAL (1 ,111=0.5000,3.500,0.0000,-1.000,0.0000,0.0000,0.0000, 

0.0000, 0.0000, 0.0000, 0.0000,0. 0000, 0.0000, 0.0000, 0.0000, 0.0000,0.0000 
DESVAL (1,12 1=0. 50 00, 0.30 00,1 .500,2.000,4.000,0.6000,0.1500006, 

1.000. 1.000.0.0000.0.0000.0.1950.0.0000.0.0000.0.0000.1.000.0.1950, 
DESVAL ( 1 ,131=0.6000,0.5000,0.0000,-1.000,0.0000,0.0000,0.0000, 

0 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0.0000 
DESVAL (1,14 1 = 1 .000,0.0000,0.0000, 0 .0000, 0.0 000,0.000 0,0 . 0 00 0, 

0 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0.0000 
DESVAL (1,15 1=0. 5000005,0.3000,0. 8500, 2. 00 0,6. 000, 12. 00, 0.0000, 

0 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0.0000 
DESVAL (1, 161 = 0.5000005,0.3000,0.0000,8. 0 0 0,10.00,0.0000,0 .0000, 
0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0.0000 
DESVALd, 17 1 = 0. 300 0,8. 9 0 0, 0.0 000 ,-1 . 000,0.0000,0.0000,0.0 000, 

0 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0.0000 


IEHD 



APPENDIX B 



SAMPLE CASE FOR PREPWATE 
ID 

I EHD 

ID MODE=l, 

IUT=4. 

KOHFIGC 1,1)='INLT',1,I,2,0,SPEC(1,1)=1000.,4*Q,1. , 2*0 , . 0 0 00 1 . 2*0 , 20 . , 

K OHF I G( 1 ,<*?) = ' COMP* ,2, 0,3, 0, SP EC (1,2)=1. 8,0, 1,37 61, 1,3762, 1,37 63,1, 0,1, .824, 

1.734.1, 

K0NFIG(1,3)= , SPLT',3»0,7,4,SPEC(1,3)=4.323, 

KOMFIG(1,4)= > DUCT i ,4,0,5,0,SPEC(1,4)-6xO ( 

KONFIG(l,5)=' HOtZ' ,5, 0, 6, 0,SPEC(1,5) = 0, 1,0,0, .99,0,0, 0,1, 

KOHFIGC 1,6)=* CO*. IP ',7, I, 8,0, SPEC (1,61=1.3,0,1, 3761, 1,3762, 1,3763, 1,0,0,. 867, 

1.373.1, 

KOHFIGC 1,7 INDUCT', 8, 0, 9, 0,SPEC( 1,7 > = 6*0, 

KOHFIGC l,fi) = * COMP ',9, 0,10, 17, SPEC (1,81 = 1. 3, .162, 1,3707, 1,37 08, 1,3709, 1,0,0, 
.867,12.75, . 935 , 

X ON FIG(1, 9)~' DU CT 1 ,19,0, 11, 0,5PEC(1,9)=. 048, 0,0, 2990.,!., 18400., 

KOHFIGC 1,10) •' T UR 11, 17,12,0, SPEC (1,10) =4, .79, 1,3801, 1,38 02, 1,1, .625, 

1, .919,5680,1, 

KONFIG(l»ll) = •DUCT* ,12, 0,13,0, SP EC (1,11)=6M0, 

KOHFIG( l,12) = 'TURfi', 13, 17, 14, 0,5PEC(1, 12 >=2. 5, .21,1,3803,1,3804,1,1,0,1, .912, 

5244.1, 

KOHFIGtia3) = , DUCT , ,14,0.15.0,SPEC(l,l3)=6M0, 

KOHFIGC 1., 14 ) = , HOZ2 , ,15.0, 16, 0»SPEC( 1,14) = 0,1, 0,0, .99,0,0,0,1, 

KOHFIGC 1,15)=*SHFT', 2,6, 12, 0.SPECC1, 15) =4000,8*1 
KOHFIGC 1, 16 >=' SHFT ',8, 10, 0,0,5PEC< 1,16 >=6000, 8*1, 

K0HFIGC1,17) = * DUCT , ,10,0,19,0»SPEC(1,17) = 6*0, 

1BHD 

IN fPLT= T , PLOT= T , ISI I = F,ISIO= F, 

IWT=4.IOUICD=2. 

DISKUI = 0. ,ACCS = 0.1,ISCALEC1)=2, 3 , SCAL EC 1) = 1 . , .8,1 .2,ACCARM=0, 

1LEHGC 1 ) = 2, 3, 6. 7, 8,17, 9,10,11.12,13,14, 

IMMECU. 2)=4HFAN , Q, Q, 4, 0, 0, 0, 

IUMECCl, 3 ) =4H5PL T , 0, 0. 0, 4, 0, 0, 

IUMECCl, 4 ) = 4HDUCT, 2, 0, 0, 0, 0, 0, 

IUMECCl, 5 ) =4111102 , 1, 0, 0, 0, 0. 9, 

imECCl, 6 ) =4HLPC , 1, 0, 0. 0 , 0, 0, 

imECCl, 7 ) = 4 HDUCT , 2, 0, 0, 0, 0. 0, 

UJMECCl, 8 ) = 4HHPC » 1, 0, 0, 0, 0, 0, 

INMEC ( 1 , 9 ) = 4HPBUR, 1, 0, 0. 0. 0, Q, 

IUMEC ( 1 , 1 0 ) =4HHPT . 0, 8, -8, 0, 0, 0, 

IUMECCl, 11)=4HDUCT. 2. 0. 0. 0, 0. 0, 

UJMECCl, 12)=4HLPT , 1, 2, 6, 0, 0, 0, 

IUMECCl, 13)=4HDUCT, 1, 0, 0, 0, 0, 0, 

IUMECCl, 14>=4HHOZ , 1. 0. 0, 0, 0, 0, 

IUMECCl, 15)=4HSHAF, 1, 12, 0, 0, 0, 2, 

IUMECCl, 16) = 4H5IJAF, 2, 10, 0, 0, 0, 8. 

IUMECCl, 17)=4HOUCT, 2. 0. 0, 0, 0, 0, 

~ DESVALC 1,2 > = 0.5500, 1.800, 0.37 0 0, 1 .50 0,4.50 0,4.500,0.5000, 

0.0000,0.0000,1.000,0.0000,2.000,1.000,0.0000,0.0000,1.800,0.55000-01, 
DESVALC 1,3) = 0.0000, 0.0000, 0.0000, 0.0 0 0 0 , 0 . 0000, 0.0000, 0.0 0 00 , 
0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000, 
DESVALC 1,4 ) = 0.500 0,1 . 000, 0.000 0 ,-1 . 000,0. 0000,0.0000,0.0 0 00 , 
0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000, 
DESVALC 1,5 1 = 1.000,0.0000, 0.0 00 0,0. 0000, 0.0000, 0.0 000.0 .000 0 , 
0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000, 

. DESVALC 1.6) = 0.50 00,1 .500, 0 .8500, 1 .500,2.000,2.000,0.4500, 

0.0000,0.0000,1.090,0.0000,3.000,1.000,0.0000,0.0000,1.200,0.1200, 

DESVALC l , 71=0 .4500,5. 500, 0 . 0000,-1.000,0.0000,0.0000,0.0000, 
0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000, 



DESVAL < 1,5) =0.4500, 1.310 ,0.4700 ,1.500 ,4. 500. 1.500 ,0.3000, 
0.0000*0.0000,1.000,0.0000,3.000,1.000,0.0000,0.0000,1.200,0.1200, 
DESVAL <1,9)=1 00. 0,0.18000-01, 0.000 0,0. 000 0,0. 0000, 0.0000, 0.0000, 
0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 ; 0 . 0000 , 0 . 0 000 , 0 . 00 00 , 0.0000 
DESVAL (1, 10 ) = 0. 4000, 0.2000, 1.50 0,1. 500, 1.500, 0.5000,0.1500006, 

3.000. 1 .000. 0.0000.0-. 0000, 0.1 550, 0.0 000, 0.0000, 0.000 0,1. 000, 0.1550, 
DESVAL (1, 111=0.5000,3. 500,0. 0000, -1.000, 0.0000, 0.0000, 0.0000, 

0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0.0000 

DESVAL ( 1,12) = 0.50 00. 0.300 0,1. 50 0,2. 0 0 0,4. 000,0. 6000, 0.1500DQ6, 

1.000. 1.000.0.0000.0.0000.0.1950.0.0000.0.0000.0.0000.1.000.0.1950, 
DESVALd. 13) = 0.6000, 0.5000,0 .0000,-1 . 000,0.0000,0.0000,0.0000, 

0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0.0000 
DESVAL (1, 14 )=1. 000, 0.0000, 0.0000. 0 .0000,0.0000,0.0000,0.0000, 
0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0.0000 
DESVAL (1,15) =0.500 0005,0.3000,0. 6500,2.000, 6. 000, 12. 00. 0.0000, 
0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0.0000 
DESVAL (1, 16 )=0. 5000005,0.3000, 0.0000, S. 000, 10.00,0.0000,0.0000, 
0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0.0000 
DESVAL (1,17) =0.30 00, a. 900, 0.0000,-1 .000,0.0000,0. 0000,0.0000, 

0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 0000 , 0 . 00 00 , 0 . 0000 , 0 . 0000 , 0.0000 



SAMPLE CA5E FOR PREPWATE 

AO 

tEND 




(Xitput from Sample Case from NhEP/WATE Code 



TABLE DATA INPUT SUMMARY 16 TABLES 


TABLE NUMBER 

REFERENCE NUMBER 

ARRAY LOCA 

1 

3761 

1 

2 

3762 

1075 

3 

3763 

2149 

4 

3704 

3223 

5 

3705 

4297 

6 

3706 

5371 

7 

3707 

6445 

ft 

370ft 

7681 

9 

3709 

8917 

10 

3801 

10153 

11 

3802 

10606 

12 

3803 

11203 

13 

3804 

11656 

14 

3901 

12397 

15 

3902 

12799 

16 

3903 

13213 


DATA STORAGE ALLOCATION 20000 
DATA STORAGE NOT USED 6305 

AD MODE=l, 

IUT=4 » 

KONFIGC 1,1> = 'INLTM,Q, 2, 0.SPECC 1,1 1 = 1000., 4*0,1. ,2*0, .00001,2*0,20. , 

KONFIGC I , 2) = *COMP # , 2, 0 , 3, 0 , SPECC 1,21 = 1.8, 0,1,3761,1, 3762,1, 3763,1,0,0, .624* 

1.734.1, 

KONFIGC 1,3)=*SPLT , ,3,0,7,4»SPEC<1,3)=4.323, 

KONFIGC 1 ,4 1= 'DUCT " ,4,0,5, 0, SPEC (1,4) =6*0, 

KONFIGC 1,5)='N0Z2', 5, 0,6,0, SPECC 1,5) =0,1, 0,0, .99,0,0,0,1, 

KONFIG( 1,61= 'COMP*, 7, 0,8,0, SPECC 1,6) =1.3, 0,1, 3761, 1,3762,1, 3763, 1,0,0,. 067, 

1.373.1, 

KONFIGC 1, 7 >=' DUCT', 8, 0,9,0, SPECC 1,7 1=6*0, 

KONFIGC 1 ,6 ) = 'COMP ',9, 0,10, 17, SPEC (1,51=1.3, .162, 1,3707, 1,37 06, 1,37 09, 1,0,0, 
.067,12.75, .965, 

KONFIG(l,9)=' DUCT >,19, 0,11,0, SPEC (1,9) = . 048, 0,0, 2990. ,1. ,18400. , 

KOMFIG( 1, 10 )='TURB’,1 1,17, 12, 0.SP£C( 1,10) =4, .79,1,3601,1,3802,1, 1, .625, 

1, .919,5680,1, 

KONFIG( 1,11)=* DUCT*, 12. 0,1 3, 0. SPEC( 1, 1 1 1=6*0, 

KONFIGC 1 , 12)='TURB' ,13,17, 14, 0, SPEC ( 1 , 121=2 .5, .21 , 1 , 3803,1, 3804, 1*1 ,0,1, .912, 

5244.1, 

KONFIGC 1.1 31=' DUCT ',14. 0,15,0, SPECC 1,1 31=6*0, 

KONFIGC 1 , 14)= B N02Z* ,15, 0,16,0, SPEC (1,141=0, 1,0,0, .99, 0,0, 0,1, 

KONFIGC 1 , 15 ) = * 5HFT' ,2, 6, 12,0, SPEC Cl, 151=4000, 8*1 
KONFIGC 1, 1 6 >=' SHFT', 8. 10. O.O.SPECC 1,16 1=6000, 0*1, 

KONFIGC 1, 17 1 = ' DUCT*. 10. 0,1 9. O.SPECC 1,17 1=6*0, 

“IEND 

THE FOLLOWING REPRESENTS THE CONFIGURATION FOR MODE= 1 
SAMPLE CASE FOR PREPWATE 

CONFIGURATION DATA 19 STATIONS 17 COMPONENTS 


COMPONENT 

NKIND 

COMPONENT 

UPSTREAM 

DOWNSTREAM 

NUMBER 


TYPE 

STATIONS 

STATIONS 

1 

1 

INLET 

1 0 

2 0 

2 

4 

COMPRESR 

2 0 

3 0 

3 

7 

SPLITTER 

3 0 

7 




A 

2 

DUCT B 

4 

0 

5 

5 

9 

NOZZLE 

5 

0 

6 

6 

4 

COMPRESR 

7 

0 

a 

7 

2 

DUCT B 

fi 

0 

9 

a 

4 

COMPRE 5 R 

9 

0 

10 

9 

2 

DUCT B 

19 

0 

11 

10 

5 

TURBINE 

11 

17 

12 

it 

2 

DUCT B 

12 

0 

13 

12 

5 

TURBINE 

13 

17 

14 

13 

2 

DUCT B 

14 

0 

15 

14 

9 

NOZZLE 

15 

0 

16 

15 

11 

SHAFT 

2 

6 

12 

16 

11 

SHAFT 

6 

10 

S 

17 

2 

DUCT B 

10 

0 

19 

IDEHTIFICATIOH 

SAMPLE 

CASE FOR 

PREPWATE 



0 

0 

0 

0 

17 

0 

0 

0 

0 

0 

0 

0 

0 

0 


INPUT DATA 


COMPONENT 


NO 

TYPE 

DATINP 1 

1 

INLET 

0 . 10000 D 04 

2 

COMPRESR 

0 . 1800 QD 01 

3 

SPLITTER 

0 . 43230 D 01 

4 

DUCT B 

0.00000 

5 

NOZZLE 

0.00000 

6 

COMPRESR 

0 . 13000 D 91 

7 

DUCT B 

0.00000 

a 

COMPRESR 

0.130000 01 

9 

DUCT B 

0 . 480 G 0 D -0 1 

10 

TURBINE 

Q. 4000 QD 01 

11 

DUCT B 

0.00000 

12 

TURBINE 

0 . 25000 D 01 

13 

DUCT B 

0.00000 

14 

NOZZLE 

0.00600 

15 

SHAFT 

0 . 40000 D 34 

16 

SHAFT 

0 . 6000 QD 04 

17 

DUCT B 

0.00000 


DAT INP 2 

DATINP 3 

0.00000 

0 .00003 

0.00000 

O.IOOOOD 01 

0.00000 

0.60000 

0.00000 

0.00000 

9 . 10000 D 01 

0.00000 

0 .00000 

0.100000 01 

0.00000 

o.oqqoo 

0 . 16200 D 00 

O.IOOOOD 01 

0. 00000 

O.COOGO 

0 . 79000 D 00 

O.IOOOOD 01 

0.00000 

0.00000 

0 . 21000 D 00 

O.IOOOOD 01 

0.00000 

0.06000 

O.IOOOOD 01 

0.00000 

0 . 10000 D 01 

O.IOOOOD 01 

O.IOOOOD 01 

O.IOOOOD 01 

0.00000 

0.00000 


DATIHP 4 

DATIHP 5 

0.00000 

O.OQOOQ 

9 . 37610 D 04 

O.IOOOOD 01 

o.ecooo 

O.OQOOQ 

0.00000 

e . ooooo 

O.OQOOQ 

8 . 99000 DI CO 

8 . 37610 D 04 

O.IOOOOD 01 

9.00008 

e.QOQOQ 

6 . 37070 D 04 

O.IOOOOD 01 

0 . 29900 D 04 

O.IOOOOD 01 

9 . 3 a 010 D 04 

O.IOOOOD 01 

0.00000 

0.00000 

0 . 3 S 030 D 04 

O.IOOOOD 01 

0.00000 

0.00000 

O.OQQOO 

0 . 99000 D 00 

O.IOOOOD 01 

O.IOOOOD 01 

O.IOOOOD 01 

O.IOOOOD 01 

o.ooooo 

0.00000 


DATINP 6 

DATINP 7 

O.IOOOOD 01 

0.60000 

6 . 37620 D 04 

O.IOOOOD 01 

9 .00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0 . 37620 D 04 

O.IOOOOD 01 

0.00000 

O.OOOOO 

0 . 37080 D 04 

O.IOOOOD 01 

0 . 1 & 4 0 OD 05 

0.00000 

0 . 38020 D 04 

O.IOOOOD 01 

0.00000 

0.00000 

0 . 33040 D 04 

O.IOOOOD 01 

0.00000 

0.00000 

0.00000 

0.00000 

O.IOOOOD 01 

O.IOOOOD 01 

O.IOOOOD 01 

O.IOOOOD 01 

0.00000 

0.00000 


DATINPB 

DAT 1 HP 9 

9.90006 

Q. 10000 D-Q 4 

Q. 37630 D 04 

O.IOOOOD 01 

0.00000 

0.00000 

0.00000 

0.00000 

6.00000 

O.IOOOOD 01 

0 . 3763 QD 04 

O.IOOOOD 01 

9.00000 

0.00000 

0 . 37 C 90 D 04 

O.IOOOOD 01 

0.00000 

0.00000 

O.IOOOOD 01 

0 . 62500 D 00 

0.00000 

0.00000 

O.IOOOOD 01 

Q .00000 

0.00000 

0.00000 

0.00000 

O.IOOOOD 01 

O.IOOOOD 01 

O.IOOOOD 01 

O.IOOOOD 01 

O.IOOOOD 01 

0.00000 

0.00000 


ro 

ro 


MODE 1 HOW BEING USED 

SUn OF (ERR0RS**2)= 0.00000 

IU IPLT = T ,PL0T= 1,1511= F, 1510= F, 

IUT=4,I0UTCD=2, 

DISKUI=0. » ACCS=Q . 1 , ISCALE( 1 ) =2, 3, SCALE! 1 ) = 1 . , .8, 1 .2, ACCARM=Q » 

I L ENG( 1 ) = 2, 3, 6, 7, 8,17, 9,10.11,12,13,14, 

IUMECU, 2) =4HFAN , 0, 0, 4, 0, 0, 0. 

IUMECU, 3)=4HSPLT, 0. 0, 0, 0, 0, 0, 

IUMECU. 4 ) =4HDUCT , 2, 0, 0, 0, 0, 0, 

IUMECU, 5 ) =4HN02 , 1, 0. 0, 0, 0, 0, 

IUMECU, 6 ) =4HLPC , 1, 0, 0, 0, 0, 0. 

IUMECU, 7 ) =4HDUCT , 2, 0, 0, 0, 0, 0, 

IUMECU, 8 ) = 4HHPC , 1, 0, 0, 0, 0, 0, 

IUMECU, 9 ) =4HPBUR , 1, 0, 0, 0, 0, 0, 

IUMECU, 10)=4HHPT , 0, 8, -8, 0, 0, 0, 

IUMECU, 11)=4UDUCT, 2, 0, 0,. 0, 0, 0, 

IUMECU, 12)=4HLPT . 1, 2, 6, 0. 0, 0, 

IUMECU, 13)=4IIDUCT, 1, 0, 0, 0, 0, 0, 

IUMECU, !4>=4UN0Z , 1, 0, 0, 0. 0, 0, 

IUMECU, 15)=4HSHAF. 1, 12, 0, 0. 0, 2, 

IUMECU, 16)=4HSHAF. 2, 10, 0, 0, 0, 8, 

IUMECU, 17) = 4IIDUCT, 2, 0, 0, 0, 0, 0. 

DESVAK 1,21=0.550 0,1. 800, 0.3700,1 .500,4.500,4.500,0.5000, 
0.0000,0.0000,1.000,0.0000,2.000,1 .000,0.0000,0.0000,1.800,0.55000-01, 
DESVAU 1,3) =0.0000, 0.0000, 0.0 000, 0.00 00, 0.0000, 0.0000, 0.0000, 
0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000, 
DESVAL (1,4 ) =0.5000, 1.00 0,0.0000.-1 .000,0. 0000, 0.0000, 0.0000, 
0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000, 
DESVAL (1,5) =1.000,0 .0000,0.0000,0.0000,0.0000,0.0000,0.0000, 
0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000, 
DESVAL (1,6) =0.5000,1 .500,0.8500, 1 .500,2.000,2.000,0.4500, 
0.0000,0.0000,1.000,0.0000,3.000,1.000,0.0000,0.0000,1.200,0.1200, 
DESVAL (1,7) =0.4500, 5. 500, 0.0000,-1 .000,0.0000,0.0000,0.0000, 
0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000, 
DESVAL (1 ,8) =0.4500, 1.31 0,0. 4 700, 1.500, 4. 500, 1.500, 0.3000, 
0.0000,0.0000,1.000,0.0000,3.000,1.000,0.0000,0.0000,1.200,0.1200, 
DESVAL (1, 9) =1 00.0,0. 1800D-01, 0.0000, 0 .0000,0.0000,0.0000,0.0000, 

0. 0000, 0. 0000, 0.0000, 0.0000, 0.0000, 0.0000,0. oooo, o.oooo;o. 0000, 0.0000, 

DESVAL (1,10 1=0.400 0,0. 2000, 1.500,1 . 500 , 1 . 500 , 0 . 5000, 0 . 1500D06 , 

3.000. 1.000.0.0000.0.0000.0.1550.0.0000.0.0000.0.0000.1.000.0. 1550, 
DESVAL (1 , 11) =0.5000, 3. 50 0,0. 000 0,-1 .000,0 .0000,0.0000,0.0000, 

0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000, 
DES V ALU, 12) = 0.500 0,0. 30 00, 1 .500,2. 0 0 0,4.000,0.6 000,0 . 150 0006, 

1.000. 1.000.0.0000.0.0000.0.1950.0.0000.0.0000.0.0000.1.000.0.1950, 
DESVAL(1»13)=0. 6000, 0.5000, 0.0000, -1.000,0. 0000, 0.0000, 0.0000, 

0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000, 
DESVAL (1,14) =1.0 00,0 .0000,0.0000,0 . 0000,0 .0000,0.0000,0.0000, 
0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000, 
DESVALU. 15)=0. 5000005,0 . 3000,0.8500,2.000,6.000,12.00,0.0000, 
0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000, 
DESVALU , 16) =0.500 0005. 0 .3000,0.0000,8.000,10.00,0.0000,0.0000, 
0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000, 
DESVAL (1,17) =0.300 0,8. 900, 0.0000,-1 .000,0.0000,0.0000,0.0000, 

0.0000,0. 0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 
-LEND 


XXXX ********* 




# FAN 2 M 
X K 

XXXXXXXXXXXX2 

MAX CONDITIONS OCCUR AT 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXMXXX 
AIT MN VALUE 

PTOT 0. 0.000 14.7 LB/SQIH 

TTOT 0. 0.000 538.7 DEG R 

CWIN 0. 0.000 1019.1 LB/SEC 

XXXXKXXXKXKXXXXXKXXKXXKXXXXXXXXXXXXXXXXX 
DUCT 

M HQ VEL T TOT P TOT P STAT AREA GAM 
0.550 608. 539. 2116. 1723. 25.6790 1.4002 

UTIPMAX STRESS DEH U/AREA TR H/T 
1591.6 45694 . 5 0.168 4.970 1.800 0.370 


COMPRESSOR 2 MECHANICAL DESIGN 

LOADING N 5TG DIAM U TIP C RPM C RPM MAX RPM 
0.927 1.00 74.14 1562.0 4920.4 4828.2 4920.4 


STAGE 1 

WD MB US UN UC CL RHOB RHOD AR 

225. 389. 0. 0. 35. 5.2 0.168 0.168 4.50 

PR DEL H MACH AREA R HUB R TIP HB UTIPMAX STR WEIGHT TIN 
1.7337 26.7 0.550 25.879 13.72 37.07 67 1591.8 45694. 649. 539. 


TMAX 

539. 


STAGE I 
165288. 


FRAME UT = 606.03 


N 5TG WEIGHT LENGTH CENGRA INERTIA 
1 1455.30 10.36 8.1 165287.8 


DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.550 667. 658. 3670. 2989. 16.4039 1.3977 

PR AD EF PO TO HP 
1.7340 0.8240 3669.5 649.8 37781. 

HI HO UI CWI 

128.75 155.45 1000.00 1019.09 

xxxxxxxxxxxxxxxxxxx TOTAL COMP WEIGHT IS 1455.303 

__xxxxxxxxxxxxx 

X X 

* LPC 6 X 
X X 

XXXXXXXXXXXX2 

MAX CONDITIONS OCCUR AT 

KXXXXXXKXXMXKXXXMXXXXXXXXXXXMXXXXXXXXMMX 

__ ALT MN VALUE 

-PTOT 0. 0.000 25.5 LB/SQIH 

TTOT 0. 0.000 649.8 DEG R 

CWIN 0. 0.000 121 . 3 LB/SEC 

XXXXXXXMXXXXXXXMXXKXXXXXXXXXXXXnXX^XrfXXK 



DUCT 

M NO VEL T TOT P TOT P ST AT AREA GAM 
0.500 609. 650. 3670. 3094. 3.2903 1.3977 

UTIPMAX STRESS DEN M/AREA TR H/T 
1001.0 7725. B 0.168 0.627 1.200 0.850 

COMPRESSOR 6 MECHANICAL DESIGN 


LOADING 

0.866 

N STG 
1.00 

DIAM 

46.63 

U TIP 
894 

C RPM C RPM 

.3 4920.4 4396.1 

MAX RPM 
4920.4 

STAGE I 

WD WB 
71. 31. 

WS WN 

31. 162. 

WC 

17. 

CL 

4.1 

RHOB RHOD AR 

0.168 0.168 2.00 



PR DEL H MACH AREA R HUB R TIP NB UTIPMAX STR WEIGHT TIN 
1.3741 17.1 0.500 3.290 19.82 Z3.31 125 1001.0 7726. 314. 650. 

N STG WEIGHT LENGTH CENGRA INERTIA 

1 313.76 4.09 4.1 26482.8 

DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.500 641. 721. 5038. 4250. 2.5254 1.3953 

PR AD EF PO TO HP 
1.3730 0.8670 5038.3 720.6 4542. 

HI HO WI CWI 

155.45 172.54 187.86 121.26 

XXXXXXXXXXXXXXXXXXK TOTAL COMP WEIGHT IS 313.764 

xxxxxxxxxxxxx 

X X 

x DUCT 7 X 

X X 

XXXXXXX NXXXX2 

MAX CONDITIONS OCCUR AT 
XXXXXXXXXKXKXXXXXXXXXMX 
ALT Mil 

PTOT 0. 0.000 

TTOT 0. 0.000 

KXXXXXXXXXXXXXXXXXXXXXX 
DUCT , 7 

RH= 20.40 RT= 23.27 LENG 
AREA= 2.731 RHO=.168 

CAS WT INC UT 

6.3043 5.5279 


= 15.76 

WIOT 

11.8322 


xxxxxxxxxxxxx 

X X 

x HPC 8 X 

X X 

_X X X X X X X X X X X X2 


MAX CONDITIONS OCCUR AI 

XXXXKXXXKXKXXXXXKXXXXKXXXXKKXXXXXXMMXXXX 


TMAX STAGE I 
650. 26483. 



ALT 

MN 

VALUE 




PTOT 0. 

0.000 

35.0 

LB/SQIN 



TTOT 0. 

0.000 

720.6 

DEG R 



CUIN 0. 

0.000 

93.0 

LB/SEC 



XXXXXXXXXXXXXXXKXXXXXXXHXXXKXKXXXXXXXKXX 



DUCT 






M NO VEl T TOT 

P TOT 

P STAT AREA 


GAM 

0.A50 580. 721. 

5038. 

A 387 , 

2.7306 

1.3953 

UTIPMAX STRESS 

DEN 

W/AREA 

TR 

H/T 

1198.8 30837.8 

0.168 

1 . 20 A 

1.200 

0 . 

A70 


COMPRESSOR fi MECHANICAL DESIGN 


LOADING N STG 

DIAM U 

TIP 

C RPM C RPM 

MAX RPM 


0.8A2 14.00 

25.35 

1017. 

1 10838.5 9195.5 

10838.5 



STAGE 

1 







UD 

UB US UN 

1 UC 

CL 

RHOB RHOD AR 




9. 

2A. 24. 13. 

8. 

3.5 

0.168 0.168 4.50 




PR 

DEL H MACH 

AREA R 

HUB 

R TIP HB UTIPMAX 

STR 

UEIGHT 

TIN 

1.3028 

15.1 0.A50 

2.731 

5.96 

12.67 80 1198.8 

30838 . 

77. 

721 

STAGE 

2 







UD 

UB US UN 

UC 

CL 

RHQB RHOD AR 




15. 

14. 14. 10. 

6. 

2.8 

0.168 0.168 4.27 




PR 

DEL H MACH 

AREA R 

HUB 

R TIP HB UTIPMAX 

STR 

UEIGHT 

TIN 

1.2768 

15.1 0.A39 

2.227 

7.65 

12.67 101 1198.8 

«r 

sT 

CM 

m 

CM 

60. 

783 

STAGE 

3 







UD 

UB US UN 

UC 

CL 

RHOB RHOD AR 




18. 

9. 9. 8. 

5. 

2.3 

0.168 0.168 4.04 




PR 

DEL H MACH 

AREA R 

HUB 

R TIP HB UTIPMAX 

STR 

UEIGHT 

TIN 

1.2550 

15.1 0.A29 

1 .849 

8.71 

12.67 121 1198.8 

20998. 

50 * 

8A A 

STAGE 

4 







UD 

UB US UN 

UC 

CL 

. RHOB RHOD AR 




19. 

7. 7. 7. 

5. 

2.0 

0.168 0.168 3.81 




PR 

DEL H MACH 

AREA R 

HUB 

R TIP HB UTIPMAX 

STR 

UEIGHT 

TIN 

1.2366 

15.1 0.A18 

1.559 

9 . A A 

12.67 140 1198.8 

17722. 

A3. 

906 

STAGE 

5 







LID 

UB US UN 

UC 

CL 

RHOB RHOD AR 




18. 

5. 5. 6. 

4. 

1.8 

0.168 0.168 3.58 




PR 

DEL H MACH 

AREA R 

HUB 

R TIP HB UTIPMAX 

STR 

UEIGHT 

TIN 

1.2206 

15.1 0.A07 

1.331 

9.98 

12.67 158 1198.6 

151 A 9 . 

38. 

967 

STAGE 

6 







UD 

UB US UN 

UC 

CL 

RHOB RHOD AR 




16. 

A . A . 6 . 

4. 

1.6 

0.168 0.168 3.35 




PR 

DEL II MACH 

AREA R 

HUB 

R TIP HB UTIPMAX 

STR 

UEIGHT 

TIN 

1.2068 

15.1 0.396 

1.150 10.39 

12.67 174 1198.8 

13100. 

3A. : 

1027. 

STAGE 

7 







UD 

UB US UN 

UC 

CL 

RHOB RHOD AR 




15. 

3. 3. 5. 

3. 

1.5 

0.168 0.168 3.12 




PR 

DEL H MACH 

AREA R 

HUB 

R TIP HB UTIPMAX 

STR 

UEIGHT 

TIN 

1 . 19A7 

15.1 0.386 

1.00A 10.71 

12.67 188 1198.8 

1 1 A A 3 . 

31. ] 

1088 . 


STAGE 


8 


TMAX STAGE I 
721. 1372. 


TMAX STAGE I 
753. 1397. 


TMAX STAGE I 
BAA. 1 AA8 . 


TMAX STAGE I 
906 . 1A39 . 


TMAX STAGE I 
967. 1382. 


TMAX STAGE I 
1027. 1 32A . 


TMAX 5T AGE I 
1088. 1260. 



UD MB MS MN UC CL RHOB RHOD AR 

14. 3. 3. 5. 3. 1.4 0.168 0.168 2.88 

PR DEL H MACH AREA R HUB R TIP NB UTIPMAX SIR MEIGHT TIN TMAX 

1.1840 15.1 0.375 Q.865 10.96 12.67 200 1198.8 10088. 28. 1147. 1147. 

STAGE 9 

MD MB MS MN UC CL RHOB RHOD AR 

25. 4. 4. 5. 3. 1.3 0.286 0.286 2.65 

PR DEL H MACH AREA R HUB R TIP NB UTIPMAX STR MEIGHT TIN TMAX 

1.1744 15.1 0.364 0.787 11.16 12.67 209 1198.8 15265. 42. 1206. 1206. 

STAGE 10 

MD MB US UH UC CL RHOB RHOD AR 

23. 4. 4. 5. 3. 1.3 0.286 0.286 2.42 

PR DEL H MACH AREA R HUB R TIP NB UTIPMAX STR MEIGHT TIN TMAX 

1.1659 15.1 0.354 0.704 11.33 12.67 215 1198.8 13673. 39. 1265. 1265. 

STAGE 11 

MD MB MS MH UC CL RHOB RHOD AR 

22. 4. 4. 5. 3. 1.3 0.286 0.286 2.19 

PR DEL H MACH AREA R HUB R TIP NB UTIPMAX STR MEIGHT TIH TMAX 

1.1582 15.1 0.343 0.635 11.47 12.67 217 1198.8 12333. 37. 1324. 1324. 

STAGE 12 

MD MB MS MN UC CL RHOB RHOD AR 

21. 3. 3. 5. 3. 1.3 0.286 0.286 1.96 

PR DEL H MACH AREA R HUB . R TIP NB UTIPMAX STR MEIGHT TIM TMAX 

1.1513 15.1 0.332 0.577 11.59 12.67 215 1198.8 11198. 35. 1382. 1382. 

STAGE 13 

MD MB MS MH MC CL RHOB RHOD AR 

20. 3. 3. 5. 3. 1.3 0.286 0.286 1.73 

PR DEL H MACH AREA R HUB R TIP NB UTIPMAX STR MEIGHT TIN TMAX 

1.1450 15.1 0.321 0.527 11.68 12.67 208 1198.8 10230. 34. 1439. 1439. 

STAGE 14 

MD MB MS MN MC CL RHOB RHOD AR 

19. 3. 3. 5. 3. 1.4 0.286 0.286 1.50 

PR DEL H MACH AREA R HUB R TIP NB UTIPMAX STR MEIGHT TIN TMAX 

1.1392 15.1 0.311 0.484 11.77 12.67 197 1198.8 9399. 34. 1496. 1496. 

N STG MEIGHT LENGTH CENGRA INERTIA 

14 581.92 24.74 13.9 22295.5 

DUCT 

M NO VEL T TOT P TOT P 5TAT AREA GAM 
0.311 584. 1553. 64238. 60225. 0.4352 1.3475 

"" PR AD EF PO TO HP 
12.7500 0.8670 64237.9 1553.3 56017. 

HI HO MI CM I 

172.54 383.29 187.86 93.01 

xxxxxxxxxxxxxxxxxxx TOTAL COMP MEIGHT IS 561.918 


_XX XXXXXXXXX XX 

x 

# DUCT 17 K 

X X 

XXXXXXXXXXXX2 


STAGE I 
1191. 


STAGE I 
2142. 


STAGE I 
2013. 


STAGE I 
1913. 


STAGE I 
1842. 


STAGE I 
1796 . 


STAGE I 
1776. 



MAX CONDITIONS OCCUR AT 
XXXXXXXXXXXXXXXXXXXXXXK 
ALT HN 

PTOT 0. 0.000 

TTOT 0. 0.000 

KXXMXXXXXXXXKXXXXXXXXXX 

DUCT , 17 

RH = 11.90 RT= 12.60 LENG = 6.27 

AREA = 0.376 RH0=.286 

CAS Ml INC WT WTOT 

11.3975 10.7609 22.1584 


xxxxxxxxxxxxx 

X X 

X PBUR 9 x 

x x 

XXXXXXXXXXXX2 

MAX CONDITIONS OCCUR AT 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
ALT MN VALUE 

PTOT 0. 0.000 446.1 LB/SQIN 

TTOT 0. 1.000 1553.3 DEG R 

CWIN 0. 1.000 9.0 LB/5EC 

XKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXX 
BURNER NUMBER 9 

RIM ROUT LENGTH MACH WSPEC 

10.177 14.023 21.600 0.053 4.419 

CAS WT LIN WT N02 WT INC WT FRAME WTOT 

43.0 54.2 21.7 31.2 178.6 328.7 


xxxxxxxxxxxxx 

X X 

x HPT 10 X 
X X 

XXXXKXXXXXXX2 

MAX CONDITIONS OCCUR AT 

KKXXXXXXXXttXXXXKXXXXXXXXXXXXXXXXXXMKXXXX 
ALT MN VALUE 

PTOT 0. 0.000 424.7 LB/SQIN 

TTOT 0. 1.000 2990.0 DEG R 

CWOUT 0. 0.000 55.4 LB/SEC 

KXXXXKXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXKXX 

DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.400 998. 2877. 61154. 55218. 0.4795 1.2912 

UTIPMAX STRESS DEN W/AREA TR H/T 

1060.5 10488.8 0.286 0.294 1.000 0.908 

"I TURBINE 10 MECHANICAL DESIGN 
H/T N STG LOADING AREA 

0.908 2.000 0.200 0.479 

UT RTIP RIIUB DEL H 


RPM MAXRPM TORQ 




1060.5 


11.2 


10.2 224 . 6 10536.5 10535.5 325775. 


STAGE 1 

DISK BLADE VANE HUD CASE AR 

6.9 2.6 13.2 26.1 4.5 1.50 

PR DEL H MACH AREA R HUB R TIP NB MAXUTIP STR WEIGHT LENGTH STAGE I 

xxxx WARNING FOLLOWING STAGE DESIGN LIMIT EXCEEDED xxxxx 
STAGE LOADING IS 0.20 DES LIMIT ISO. 25 

XXSTAGE LOADING IS TOO HIGH INCREASE LOADING INPUT 1/TLP=LQADING xx 

1.9609 112.3 0.400 0.479 10.15 11.21 154 1060.5 10489. 53.65 2.40 634. 

STAGE 2 

DISK BLADE VANE HWD CASE AR 

11.5 7.2 36.2 42.1 8.3 1.50 

PR DEL H MACH AREA R HUB R TIP NB MAXUTIP STR WEIGHT LENGTH STAGE I 

x x x x WARNING FOLLOWING STAGE DESIGN LIMIT EXCEEDED xxxxx 
STAGE LOADING IS 0.20 DES LIMIT ISO. 28 

ro XXSTAGE LOADING IS TOO HIGH INCREASE LOADING INPUT l/TLP=LOADING xx 

00 2.1890 112.3 0.450 0.796 10.18 11.84 101 1120.1 17422. 105.35 3.88 1356. 

N STG LENGTH WEIGHT CENGRA INERTIA 

2 6.28 159.00 5.0 1990. 

DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.500 1065. 2096. 14225. 12113. 1.5459 1.3103 

PR TR AD EF PO TO TO.l 

4.2991 1.3553 0.9190 14224.8 2122.4 2096.4 
H IN H OUT AREA FLOW HP 
777.55 552.92 5.23 176.28 56024. 

xxxxxxxxxxxxxxxxxxx TOTAL TURB WEIGHT IS 158.997 


xxxxxxxxxxxxx 
x x 

X DUCT 11 x 
X X 

XXKXMX XMMXXX2 

MAX CONDITIONS OCCUR AT 
xxkmxmxmmkxxxknxxkmxxxx 
ALT Mil 

PTOT 0. 0.000 

TIOI 0. 0.000 

'xnmxkxmxnnmmxxxmmxmknmx 
DUCT , 11 

RH= 10.00 RI - 13.07 IENG= 10 74 

AREA= 1.546 RHO-.286 

CAS UI INC WT UTOI 

4.6581 3.5643 8.2224 


XXXMXMN tf X rf * * N 
X X 


x LPT 12 x 



X « 

MXXXXXXXXMXX2 


MAX CONDITIONS OCCUR AT 

XXXXXXXKKXXXXXXXKKXXXXXXXXKXXXXXXXKXXXXX 

ALT MM VALUE 

PTOT 0. 6.000 98.8 LB/SQIN 

TTOT 0. 0.000 2096.5 DEG R 

CWQUT 0. 0.000 211.0 LB/SEC 

XXXXXXXXXXXXXXXMXXXXXXXXXXXXXXXKXXXXXXXX 

DUCT 

M NO VEL T TOT P TOT P STAT AREA 
0.500 1065. 2097. 14229. 12117. 1.5455 


GAM 

1.5105 


UTIPMAX STRESS DEN W/AREA 
899.1 6967.9 0.286 0.505 


TR H/T 
1.000 0.916 


TURBINE 

12 MECHANICAL 

DESIGN 



H/T 

H STG 

LOADIHG 

AREA 



B. 916 

3.000 

0.300 

1.546 


HAXRPH TORO 

UT 

RTIP 

RHUB 

DEL H 

RPM 

899.1 

20.9 

19.2 

161.5 

4920.4 

*92#.* 5*2172 


STAGE 1 

DISK BLADE VANE HUD CA5E AR 
50.8 13.7 68.5 119.2 11.7 2.00 

PR DEL H MACH AREA R HUB R TIP HB MAXUTIP 
1.5488 53.8 0.500 1.546 19.17 20.94 225 899.1 


5TR WEIGHT LENGTH 
6968. 243.83 3.10 


STAGE 2 

DISK BLADE VANE HUD CASE AR 
38.3 18.9 94.4 105.2 11.2 3.00 

PR DEL H MACH AREA R HUB R TIP NB MAXUTIP 
1.6212 53.8 0.533 2.178 18.40 20.94 233 899.1 


STR WEIGHT LENGTH 
9819. 267.93 2.97 


STAGE 

DISK 

45.1 

PR 

1.7172 


3 

BLADE VANE HUD CASE AR 
32.8 164.1 103.5 12.8 4.00 

DEL H MACH AREA R HUB R TIP HB MAXUTIP 
53.8 0.567 3.209 17.07 20.94 203 899.1 


STR 

14469. 


WEIGHT LEHGTH 
358.29 3.40 


FRAME WT = 318.95 


N STG LEHGTH WEIGHT CENGRA INERTIA 

3 12.62 1189.01 8.2 39914. 


DUCT 

M NO VEL T TOT P TOT 

0.600 1089. 1525. 3295. 


P STAT AREA GAM 
2609. 5.1741 1.3350 


PR 

TR 

AD EF 

PO 

TO 

4.3186 

1.3760 

0.9120 

3294.8 

1523.7 

H IN 

H OUT 

AREA 

FLOW 

HP 

544.69 

383.23 

20.12 

185.29 

42328. 


xxxxxxmxmxmmxmxxkxx TOTAL TURB WEIGHT IS 


STAGE I 
10705. 


STAGE I 
12920. 


STAGE I 
16289. 


1189.008 



GO 

o 


XXXXXXXXXXXXX 
X X 

x DUCT* 13 X 
x x 

XXXXXXXXXXXX2 

MAX CONDITIONS OCCUR AT 
xxxxxxxxxxxxxxxxxxxxxxx 
ALT MN 

PTOT 0. 0.000 

TTOT 0. 0.000 

xxxxxxxxxxxxxxxxxxxxxxx 

XKXXXXXXXXKKX 
X X 

x NOZ 14 x 

X X 

XXXKXXXXKXXX2 

MAX CONDITIONS OCCUR AT 
xxxxxxxxxxxxxxxxxxxxxxx 
ALT HN 

PTOT 0. Q.000 

TTOT 0. 0.000 

xxxxxxxxxxxxxxxxxxxxxxx 
NOZZLE 14 

WEIGHT= 155.91 LENGTH^ 


41.076 TR MT = 


xxxxxxxxxxxxx 

X X 

X DUCT 4 X 
X X 

XXXXXXXKXXXX2 

MAX CONDITIONS OCCUR AT 
xxxxxxxxxxxxxxxxxxxxxxx 
ALT MN 

PTOT 0. 0.000 

TTOT 0. 0.000 

xxxxxxxxxxxxxxxxxxxxxxx 
DUCT , 4 

RH = 22.31 RT = 33.92 LENG= 11.59 

AREA= 14.224 RHQ=.16S 

CAS UT INC MT WTOT 

7.1743 4.7223 11.0966 


xxxxxxxxxxxxx 

2 iioz *2 

X X 

XXXXXXXXXXXX2 


_MAX CONDITIONS OCCUR AT 

.XXXXXXXXXMKXXXKXXXXXXXX 

ALT MN 

PTOT 0. 0.000 

TTOT 0. 0.000 


0.00 


XXXXXXXXXXXXXXXXXKXXXXX 

NOZZLE 5 

WEIGHT = 242 .87 LENGTH= 67.836 TR WT= 


XXXKXXXXXKXXK 
X X 

x SHAF 15 X 

X X 

XXXXXXXXXXKX2 

MAX TORQUE CONDITION 

XKKXXXXXKXXXXXXXXKXXXXK 

TORQUE 

10.6 

XXMXXXKKXKKXXXXKXXXXXXX 
SHAFT 15 

DO DI LEHG DM WT 
6.89 5.86 89.48 0.86 277.62 


TOTAL INERTIA OF THIS SPOOL IS 231684. 

XXKXXXXXXXXXX 
X X 

X SHAF 16 x 

X X 

X X X X X X X XX X X X 2 

MAX TORQUE CONDITION 
XXXXXKXXXXXXXXXKXXXXKKX 
TORQUE 
9.3 

XXXXXXXXXXXXXXXXXKXXXXX 

SHAFT 16 

DO DI LENG DM WT 

7.72 7.29 27.87 2.12 42.22 


TOTAL INERTIA OF THIS SPOOL IS 24286. 
HE DH VALUE 0F2 . 12MILLION IS HIGH 

XXXKXKXXXXXKK 
X X 
X ACCS WT x 
x x 
XXXXKXXXKXXK2 


0.00 


ACCS WT " 440 . 16$ 



WEIGHT INPUT DATA IN ENGL UNITS 
WEIGHT OUTPUT DATA IN ENGL UNITS 


OJ 

ro 


ENGINE SCALING DATA 

NXMXXXMXMXXXKKMXXXM 

SCALE FACTOR I. 00 

MMXXXXMHNXXKMXXXXXM 


COMP 

WT 

COMP 

ACCU 

UPSTREAM 

RADIUS 

DOWNSTREAM RADIUS 


NO 

EST 

LEN 

LEN 

RI 

RO 

RI 

RO 

RI 

RO 

RI 

RO 

NSTAGE 

1 

0. 

0. 

0. 

0. 

0. 

O. 

0. 

0. 

0. 

0. 

0. 

0 

2 

1455. 

10. 

10. 

14. 

37. 

0. 

0. 

19. 

34. 

0. 

0. 

1 

3 

0. 

0. 

10. 

19. 

34. 

0. 

0. 

19. 

23. 

23. 

34. 

0 

4 

12. 

12. 

22. 

22. 

34. 

0. 

0. 

22. 

34. 

0. 

0. 

0 

5 

243. 

68. 

90. 

0. 

34. 

0. 

0. 

0. 

32. 

0. 

0. 

0 

6 

314. 

4. 

14. 

20. 

23. 

0. 

0. 

20. 

23. 

0. 

0. 

1 

7 

12. 

16. 

30. 

20. 

23. 

0. 

0. 

20. 

23. 

0. 

0. 

0 

8 

582. 

25. 

55. 

6. 

13. 

0. 

0. 

12. 

13. 

0. 

0. 

14 

9 

329. 

22. 

83. 

10. 

14. 

0. 

0 . 

10. 

14. 

0. 

0. 

0 

10 

159. 

6. 

89. 

10. 

11. 

0. 

0. 

10. 

13. 

0. 

0. 

2 

11 

8. 

11. 

100. 

10. 

13. 

0. 

0. 

10. 

13. 

0. 

0. 

0 

12 

1189. 

13. 

112. 

19. 

21. 

0. 

0. 

14. 

21. 

0. 

0. 

3 

13 

0. 

0. 

112. 

14. 

21. 

\0. 

0. 

14.. 

21. 

0 . 

0 . 

0 

14 

156. 

42. 

154. 

0 . 

21 . 

P. 

0. 

0. 

19. 

0. 

0. 

0 

15 

278. 

0. 

89. 

14. 

37. 

0. 

0. 

10. 

13. 

0. 

0. 

0 

16 

42. 

0. 

0. 

20. 

23. 

12. 

13. 

0. 

0. 

0. 

0. 

0 

17 

22. 

6. 

61. 

12. 

13. 

0. 

0. 

12. 

13. 

0. 

0. 

1 0 


TOTAL BARE ENGINE WEIGHT 2 4800. ACCESSORIES 2 440.16 ESTIMATED TOTAL LENGTH= 154. ESTIMATED MAXIMUM RADIUS 2 
ESTIMATED CENTER OF GRAVITY 2 51. 

ESTIMATED AIRFLOW SCALING EXPONENT IS 1.000 


37 . 


oonooooooo 


CO 

CO 



— C/L C/l C/L C/L C/L C/L C/l C/L C/L C/L C/L C/L C/l C/L C/L 



WEIGHT INPUT DATA IN ENGL UNITS 
WEIGHT OUTPUT DATA IN ENGL UNITS 


ENGINE 

SCALING 

DATA 











NXXXXXXXXXXXKXNXXKX 











SCALE FACTOR 

0.80 











KKXXKXXXXXXKK NX X X X X 











COMP 

MT 

COMP 

ACCU 

UPSTREAM RADIUS 

DOWNSTREAM RADIUS 


NO 

EST 

LEN 

LEN 

RI 

RO 

RI 

RO 

RI 

RO 

RI 

RO 

NSTAGE 

1 

0. 

0. 

0. 

0. 

0. 

0. 


0. 

0. 

0. 

o. 

o 

2 

1223. 

9. 

9. 

12. 

33. 

0. 

0. 

17. 

31. 

0. 

0. 

l 

3 

0. 

0. 

9. 

17. 

31. 

0. 

0. 

17. 

21. 

21. 

31. 

o 

4 

9. 

10. 

20. 

20. 

31. 

0. 

0. 

20. 

31. 

0. 

o. 

0 

5 

197. 

61. 

81. 

0. 

31. 

0. 

0. 

0. 

29. 

0. 

o. 

o 

6 

223. 

4. 

13. 

18. 

21. 

0. 

0. 

18. 

21. 

0. 

0. 

1 

7 

8 « 

14. 

27. 

18. 

21. 

0. 

0. 

18. 

21. 

0. 

o. 


8 

419. 

22. 

49. 

5. 

11. 

0. 

0. 

11. 

11. 

0. 

0. 

14 

9 

268. 

22. 

76. 

9. 

13. 

0. 

0. 

9. 

13. 

0. 

o. 

8 

10 

115. 

6. 

82. 

9. 

10. 

0. 

0. 

-9. 

12. 

0. 

0. 

2 

n 

12 

6 . 
914. 

10. 

11. 

92. 

103. 

9. 

17. 

12. 

19. 

0. 

0. 

0. 

0. 

9. 

13. 

12. 

19. 

0. 

0. 

0. 

o. 

0 

j 

1 3 

0. 

0. 

103. 

13. 

19. 

0. 

0. 

13. 

19. 

0. 

o . 

Q 

o 

14 

125. 

37. 

140. 

0. 

19. 

0. 

0. 

0. 

17. 

0. 

o. 

15 

237 . 

0. 

82. 

12. 

33. 

0. 

0. 

9. 

12. 

0. 

0. 

o 

1 6 

38. 

0. 

0. 

18. 

21. 

11. 

11. 

0. 

0. 

0. 

o. 

o 

17 

16. 

6. 

55. 

11. 

11. 

0. 

0. 

11. 

11. 

0. 

0. 

to 


ESTIMATED^CEHTER^OF^GRAVITY^* ' ^ »«•« ESTIMATED TOTAL LENGTH^ 1A0. ESTIMATED MAXIMUM RADIUS 
ESTIMATED AIRFLOW SCALING EXPONENT IS 1.049 



HEIGHT INPUT DATA IN ENGL UNITS 
UEIGIIT OUTPUT DATA IN ENGL UNITS 


ENGINE SCALING DATA 
MKKKMKKXXKXKMKKKKKX 
SCALE FACTOR 1.20 
XXKXXXKXXXXXXKXXKXX 

COMP UT COMP ACCU 

HO EST LEH IEN 


UPSTREAM RADIUS 
RI RO RI RO 


DOWNSTREAM RADIUS 
RI RO RI RO 


NSTAGE 


GO 

cn 


1 

2 
3 
A 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 


0. 

0. 

0. 

0. 

0. 

0. 

0. 

9. 

0 

1707. 

11. 

11. 

15. 

41. 

0. 

0. 

21. 

38 

0. 

0. 

11. 

21. 

38. 

0. 

0. 

21. 

25 

16. 

13. 

24. 

24. 

37. 

0. 

0. 

24. 

37 

288. 

74. 

98. 

0. 

37. 

0. 

0. 

0. 

35 

415. 

4. 

16. 

22. 

26. 

0. 

0 . 

22. 

26 

16. 

17. 

33. 

22. 

25. 

0. 

0. 

22. 

25 

766. 

27. 

60. 

7. 

14. 

0. 

0 . 

13. 

14 

389. 

22. 

89. 

11. 

15. 

0. 

0. 

11. 

15 

208. 

7. 

96. 

11. 

12. 

0. 

0. 

11. 

14 

11. 

12. 

107. 

11. 

14. 

0. 

0. 

11 . 

14 

1489. 

14. 

121. 

21. 

23. 

0. 

0. 

16. 

23 

0. 

0. 

121. 

16. 

23. 

0. 

0. 

16 . 

23 

187. 

46. 

167. 

0. 

23. 

0. 

0. 

0. 

21 

316. 

0. 

96. 

15. 

41. 

0. 

0. 

11. 

14 

46. 

0. 

0. 

22. 

25. 

13. 

14. 

0. 

0 

29. 

7. 

67. 

13. 

14. 

0. 

0. 

13. 

14 


0. 

0. 

25. 

0. 

0. 

0. 

0 . 

0 . 

0. 

0 . 

0. 

0 . 

0 . 

0 . 

0 . 

0. 

0. 


0 . 

0 . 

38. 

0. 

e. 

0. 

0. 

0. 

0 . 

0. 

0 . 

0. 

0 . 

0 . 

0 . 

0. 

0 . 


0 

1 

0 

0 

0 

1 

0 

*3 

2 

0 

3 

0 , 

0 

0 

0 

10 


^?^A?£5%iS?£S C 0? E SS8SxT^ a2 ■ 3S ^CEaaORieS- 54 0.64 ESTIMATED TOTAL LEMGTH= 167. ESTIMATED MAXIMUM RADIUS= 41. 
ESTIMATED AIRFLOW SCALING EXPONENT IS 1.114 


UPDATED INPUT DATA TO REFLECT CALCULATED INPUT 
COMPONENT 


NO. 

TYPE 

DATINP1 

DAT INP2 

DATINP3 

DATINP4 

1 

INLET 

O.IOOOOD 04 

0.00000 

0.14696D 92 

0.00000 

2 

COMPRESR 

0.18000D 01 

0.00000 

0 . 3925 0 D 04 

0.37610D 04 

3 

SPLITTER 

0.43230D 01 

0.00000 

0.00000 

0.00000 

4 

DUCT B 

0.00000 

0.00000 

0.00000 

0 .00000 

5 

NOZZLE 

0.15353D 04 

0.10000D 01 

0.00000 

0 .00000 

6 

COMPRESR 

0.13000D 01 

0.00000 

0.35737D 04 

Q.37610D 04 

7 

DUCT B 

0.00000 

0.00000 

0.00000 

0.00000 

8 

COMPRESR 

0.13000D 01 

0.16200D 00 

0.51680D 04 

0.37070D 04 

9 

DUCT B 

0.48000D-01 

0.00000 

0.00000 

0.29900D 04 

10 

TURBINE 

0.4000QD 01 

0.79000D 00 

0.43996D 00 

0.3S010D 04 

11 

DUCT B 

0.00000 

0.00000 

0.00000 

0 .00000 

12 

TURBINE 

0 .25000D 01 

0.21000D 00 

0.37940D 00 

0 . 38 0 30D 04 

13 

DUCT B 

0.00000 

0.00000 

0 .00000 

0 .00000 

14 

NOZZLE 

0.64017D 03 

0.10000D 01 

0.00000 

0.00000 

15 

SHAFT 

0.40000D 04 

0.10000D 01 

0.10000D 01 

0 . 10000D 01 

16 

SHAFT 

0.60000D 04 

0.10000D 01 

0.10000D 01 

0. 10000D 01 

17 

DUCT B 

0.00000 

0.00000 

0.00000 

0 .00000 


DATIHP5 

DATIHP6 

DATINP7 

DATIHP8 

DATINP9 

0.00000 

O.IOOOOD 01 

0.00000 

0.00000 

0 . 10006D-04 

0 . 10227D 04 

0.37620D 04 

0.95772D 00 

0.3763OD 04 

0.39127D 10 

0.00000 

0.00000 

0.00000 

0.00000 

0.10601 

0 .00000 

0.00000 

0.00000 

0.00000 

0.80660 

0.99000D 00 

0.00000 

0.00000 

0.00000 

0.10066D 01 

0.12437D 03 

0 . 37620 D 04 

0.10023D 01 

0.376300 04 

0 . 18266 D 91 

0.00000 

0.00000 

0.00000 

0.00000 

0.10186 

0 .921770 02 

Q.37080D 04 

0.90596D 00 

0.37090D 04 

Q.165UD 61 

O.IOOOOD 01 

0.1840GD 05 

0.00000 

0.00000 

0.90601 

0.68035D 00 

0.38020D 04 

0.10336D 01 

0.10993D 01 

0 . 62506 D 16 

0.00000 

0.00000 

0.00000 

0.00000 

0.18660 

0 .8696 ID 00 

0.38040D 04 

0.99700D 00 

0.22USD 01 

0.19163 

0.00000 

0.00000 

0.00000 

0.00000 

0.06891 

0.99000D 00 

0.00000 

0.00000 

0.00000 

0.10009D 01 

O.IOOOOD 01 

O.IOOOOD 01 

O.IOOOOD Q 1 

O.IOOOOD 01 

0.1006ID 01 

O.IOOOOD 01 

O.IOOOOD 01 

O.IOOOOD 01 

O.IOOOOD 01 

0.10006D 61 

0.00000 

0 .00000 

0 . 00000 

0.00000 

O.II0II 



CASE IDENTIFICATION 


SAMPLE CASE FOR PREPWATE 


STATION PROPERTY OUTPUT DATA 



FLOW 

WEIGHT 

TOTAL 

TOTAL 

FUEL/AIR 

REFERRED 

MACH 

STATIC INTERFACE CORRECTED 


ST AT ION 

FLOW 

PRESSURE 

TEMPERATURE 

RATIO 

FLOW 

NUMBER 

PRESSURE 

FLOW ERROR 




STATP1 

STATP2 

STATP3 

STATP4 

STATP5 

STATP6 

STATP7 

STATP8 



1 

0.10000D 06 

0.16696D 02 

0.53867D 03 

0.00000 

0.10191D 04 

0.00000 

0.00000 

0.00000 



2 

0 . 10000D 06 

0.16696D 02 

0.53867D 03 

0.00000 

0.10191D 04 

0.00000 

0.00000 

0.00000 



3 

0.10000D 06 

0 . 2548 3D 02 

0.64979D 03 

0.00000 

0.64548D 03 

0.00000 

0.00000 

0.00000 



4 

0 ,812160 03 

0 . 2548 3D 02 

0.64979D 03 

0.00000 

0.524220 03 

0.00000 

0.00000 

0.00000 



5 

0.61216D 03 

0 . 2548 3D 02 

0.64979D 03 

0.00000 

0.52422D 03 

0.92227D 00 

0.14696D 02 

0.00000 



6 

0.81216D 03 

0.25483D 02 

0.64979D 03 

0.00000 

0 . 52422D 03 

0.91304D 00 

0.14696D 02 

0.00000 



7 

0 . 18 786 D 03 

0 . 25483D 02 

0.64979D 03 

0.00000 

0.12126D 03 

0.00000 

0.00000 

0.00000 



a 

0.18786D 03 

0.36988D 02 

0.72056D 03 

0.00000 

0.93005D 02 

0.00000 

0.00000 

0.00000 



9 

0.18786D 03 

0.34988D 02 

0.72056D 03 

0.00000 

0.93005D 02 

0.00000 

0.00000 

0.00000 



10 

0.1S763D 03 

0.44610D 03 

0.15533D 04 

0.00000 

0.89748D 01 

0.00000 

0.00000 

0.00000 



11 

0 .161250 03 

0 . 42468D 03 

0.29900D 04 

0. 24256D-01 

0.13397D 02 

0.00000 

0.00000 

0.00000 



12 

0.18529D 03 

0 . 9881 2D 02 

0.20965D 04 

0.2IQ43D-01 

0.55404D *2 

0.00000 

0.00000 

0.00000 



13 

0.18529D 03 

0.98812D 02 

0.20965D 04 

0 .21 043D-01 

0.55404D 02 

0.00000 

0.00000 

0.00000 



16 

0.19168D 03 

0.22886D 02 

0.15247D 04 

Q.20327D-01 

0.2U04D 03 

0.00000 

0.00000 

0.00000 



15 

0.19168D 03 

0 . 22886 D 02 

0.15247D 04 

0 . 20 327D-Q 1 

0.21104D 03 

0 . 83092D 00 

0.14696D 02 

0.00000 



16 

0.19168D 03 

0 . 22886 D 02 

0.15247D 04 

0.20327D-01 

0 . 21104D 03 

0.82261D 00 

0.14696D 02 

0.00000 



17 

0.30636D 02 

0.44610D 03 

0.15533D 04 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 



19 

0.15763D 03 

0.46610D 03 

0.15533D 04 

0.00000 

0.89748D 01 

0.00000 

0.00000 

0.00000 







COMPONENT OUTPUT DATA 





COMPONENT 










NO. TYPE 

DATOUT1 

DAT0UT2 

DATOUT3 

DAT0UT4 

DATOUT5 

DATOUT6 

DAT0UT7 

DATOUT6 

DAT0UT9 

1 

INLET 

0.00000 

0.00000 

0.00000 

0.10000D 01 

0.10000D 01 

0.00000 

0.10000D 01 

0.10386D 01 

0.10000D-04 

2 

COMPRESR 

-0.37786D 05 

0.40000D 04 

0.00000 

0.18000D 01 

0.81382D 01 

0.10000D 01 

0.10227D 04 

0.82400D 00 

0.17340D 01 

3 

SPLITTER 

0.63230D 01 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

4 

DUCT D 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

5 

NOZZLE 

0.26667D 05 

0.10556D 04 

0.17340D 01 

0.15353D 04 

0.15353D 04 

0.10000D 01 

0 . 990 0 OD 00 

0.18930D 01 

0.17340D 01 

6 

COMPRESR 

-0 . 65623D 06 

0.40000D 04 

0.00000 

0.13000D 01 

0.16143D 01 

0.10000D 01 

0.124370 03 

0.86700D 00 

0.13730D 01 

7 

OUCT B 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

6 

COMPRESR 

-0.56026D 05 

0.60000D 04 

0.00000 

0.13000D 01 

0.32396D 02 

0 . 9850 OD 00 

0.92177D 02 

0.86700D 00 

0 . 12750D 02 

9 

DUCT B 

0.00000 

0.48000D-01 

0.00000 

0.24256D-01 

0.00000 

0.13747D 05 

0.00000 

0.10000D 01 

0 . 29900D 04 

10 

TURBINE 

0.56026D 05 

0.60000D 04 

0.10000D 01 

0.400000 01 

0 .439960 00 

0.56800D 04 

0.68035D 00 

0.91900D 00 

0.42979D 01 

11 

DUCT B 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

12 

TURBINE 

0 .623280 05 

0.40000D 04 

0.10000D 01 

0 . 25000 D 01 

0.37940D 00 

0.52440D 04 

0.86961D 00 

0.91200D 00 

0.43176D 01 

13 

DUCT B 

0 .00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

1$ 

NOZZLE 

0.87362D 06 

0.14660D 04 

0 . 1557 3D 01 

0 .640170 03 

0.64017D 03 

0.10000D 01 

0 . 9900 OD 00 

0.18616D 01 

0.15573D 01 

IS 

5HAFT 

0.00000 

0.40000D 04 

0.40000D 04 

0.40000D 04 

0.40000D 04 

0.00000 

0.00000 

0.00000 

0.00000 

16 

SHAFT 

0.00000 

0.60000D 04 

0.60000D 04 

0.60000D 04 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

17 

DUCT B 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 


MACH= 0.0000 ALTITUDE= 0. RECOVERY^ 1.0000 0 ITERATIONS 2 PASSES 


AIRFLOW (LB/SEC) 

1000.00 

GROSS THRUST 

35380.75 

FUEL FLOW (LB/HR) 

13747.27 

NET THRUST 

35380.75 

TSFC 

0.3886 

NET THRUST/AIRFLOW 

35.3808 

TOTAL INLET DRAG 

0.00 

TOTAL BRAKE SHAFT HP 

0.00 

BOATTAIL DRAG 

0.00 

INSTALLED THRUST 

35380.75 

INSTALLED TSFC 

0.3886 

SPILLAGE + LIP DRAG 

0.00 



CO 


IMPLICIT REAL*8 (A-H.O-Z) 

LOGICAL IPLT,PLOT,I5II,ISIO 

DIMENSION ILENG( 36), IREST (30)# IALK60), ITYPE(60), ITYPEI (60 ) * I 
lUORD(ll), DEFAUL (17,18), DESVAL ( 17 , 60 ) , RMIN(17,18), RMAX(17,ia>, 
2IWMEC(7.60), RMAN(7), RM1X(7) 

DATA IW0RD/4HINLT, 4HDUCT,4HWIMJ , 4HCOMP, 4HTURB, 4HHTEX, 4HSPLT , 4NMIXR 
1 , 4HN02Z, 4HLOAD.4HSHFT/ 

INTEGER AA,BB,CC,DD,EE,FF,GG,HH,OD,PP,QQ,RR,SS,TT,PBURX, DBURX, AliGX 
1 , DUC TX, FA MX, FOX, FIX,RSFOX,RSFIX,HPCX,HPTX,HTXX»FMIX,SHAFX 
DATA AA,BB,CC,DD,EE,FF,GG,HH,II,JJ,KK,LL,MM,NN,00,PP,QQ,RR,SS,TT/1 
1HA.1HB, 1HC, 1HD, 1HE, INF, IMG, 1HH, 1HI , 1HJ, 1HK, 1HL , 1HM, 1HN, 1KO, 1HP, 1HQ 
2 , 1HR , IH5, 1HT/ 

DATA PBURX, DBURX, AUGX, DUCTX/4HPBUR , 4HDBUR , 4HAUG , 4HDUCT/ 

DATA FMIX,MIX,NOZX, SHAFX/4HFMIX, 4HMIX ,4HNOZ , 4HSHAF/ 

DATA FANX, FOX, FIX,RSFOX» RSF1X , LPCX , HPCX/4HFAN , 4I1FO , 4HFI , 4HRSF 
10, 4HRSFI , 4HLPC .4HHPC /,HPTX, LPTX, HTXX/4HMPT ,4HLPT , 4HHTEX/ 

DATA DEFAUL/100. , .015,15*0,150., . 015, 15*0. ,306. , . 015, 15*0 . , 0 . 4, 1 . , 

10.. -1. ,13*0. ,.55,1.7, .45,1.5,6. ,3., .65,0. ,6.,1. ,6. ,2. ,1., 2*0. ,1.6, 

2.055. . 55.1.7. .45.1.5.6. .3. . .45.0. . 6 . » 1 . ,6 . ,2. , 1 . , 2*0 . ,1.8, .655, .55 

3.1.7.. 45.1.5.4..3...45.0..0..1.,Q.,2.,l.,2xfi.,1.8,.655,.55,1.7,.45 

4. 1. 5. 4. . 3. .. 45. 0. .6. . 1. . 0.. 2. .1.. 2*0. ,1.8, .655, .55, 1.7, .45, 1.5,4., 

53.. .45.0..0..1..0..2..1..2*0.,1.&,.055, .50,1.5,. 40, 1.5, 4. ,3. ,.45,6 

6.. 0..1..0..2..1..2x6.,1.2,.120,.40,1.4,.70»1.5,3.»1.5,.30,0.,0.,l. 
7,6. ,2. ,1., 2*6. ,1.2, .120, .3, .28,1 .5,1 .5,1.5, .45, 125000. ,2. ,1 . ,2*0. , 
80. 155, 3*0. ,1.0, 0.155, .45, .28, 1.5, 2. ,4., .55,125000. ,2. ,1. ,2*0. ,0.19 
95,3X0. ,1.0,0.195, .3,4*0. , .45,11X0. ,5006. , .5, . 5, 14*0 . , 1 . , 8. , 15*0 . ,1 

1. . 16 *0. ,50000., .286,15X0./ 

DATA RMIN/100.,. 01, 15*0., 150.,. 01, 15*0., 200.,. 01, 15*0.,. 4, 16*0.,. 5 

1.1.5. . 4.1.. 3.. 2... 45.0.. 0.1.. 0..0..1.. 4*0.,. 5, 1.5,. 4,1., 3., 2., .45 

2.0. .0..1..0..1..1..4x0.,.5,1.5,.4,l.,3.,2.,.45,0.,0.,l.,6.,0.,l.,4 
3x0., .5,1.5, .4,1. ,3. ,2. , .45,0.,G.,1.,6.,0. , 1 . , 4*0 . , .5,1.5, .4,1. ,3. , 

42.. .45.0..0..1..0.,e.,l.,4*0.,.45,1.5,.4,l.,3.,2.,.45,0.,0.,l.,0., 

50.. 1.. 4X0.,. 4, 1.4,. 6,1., 2., 1.,. 20,0., 6., 1., 6., 0.,1., 4*0. ,.3,. 2,1., 

61.. 1... 45.1 00000.. 0..1.. 8*0.,. 4,. 2,1., 2., 4.,. 55, 10 00 00. ,0.,1., 8*0. 
7,17*0. ,0.,. 3, .3,14X0. ,1., 7., 15*0., 1., 16*6., 40000.,. 25, 15*0./ 

DATA RMAX/1 56.,. 02, 15*0., 200.,. 02, 15*0., 300., .02,15*0., .5, 16*0.,. 6 

1.1.8.. 5.1.5.5..3...55.0.»9.,1.,0.,0.,1.,4XQ.,.6,1.8,.5,1.5,5.,3.,. 

255.0. .0. .1..0..0. • 1 . , 4*0 . , .6,1.8, .5, 1.5, 5. ,3. , .55,0. »0.,1. • 0 . , 0 . ,1 

3. . 4*0. , .6, 1.8, .5,1. 5, 5. ,3. • .55,0. ,0. ,1.,0.,0.,1.,4*0. , .6,1.8, .5,1. 

45.5.. 3...55.0..0..1..6..0..1..4*0.,.6,1.8,.5,1.5,5.,3.,.55,0.,0.,1 

5.. 0..0..1..4*0., .5,1.7, .5, 1.5, 5. ,2., .30,0.,0.,1.,0.,0.,1.,4*0., .4, 

6. 3. 1.5. 2.. 2... 5. 150000.. 6.. 1.. 8*0.,. 5,. 3, 1.5, 3., 6.,. 6, 15000 Q.,0.,1 

7. . 8*0., 17*0. ,0.,. 5, .5, 14*0. ,2. ,9. ,15*0. ,2. ,16*0. ,50000. ,.31, .85, 14 
8*0./ 


DATA RMAM. RMIX/14XQ ./, IPLT, PLOT, ISI I, ISIO/. TRUE., .TRUE., .FALSE. , .F 
1ALSE./»IWT , I OUT CD/2 ,2/ 

WRITE (35,970) 

READ (30,980) IPLT . PLOT , ISI I » I SIO 
WRITE (6.990) IPLT .PLOT , ISI I , IS 10 
WRITE (35,1000) 

READ (30,1010) IWT , IOUTCD 
WRITE (6,1020) IWT, IOUTCD 
WRITE (35,1210) 

READ (30,1120) IDISK 

IF ( I DISK . EQ . BB ) DISKWI=0. 

IF (IDISK.Eq.GG) DISKWI =1 . 

WRITE (6,1220) DISKWI 
DO 10 1=1,30 

1 1 in e c ( l , i ) =o 

IWMEC( 1 , 1 + 30 ) =0 


0000100 

6000200 

0000306 

0000400 

6000500 

0600600 

0000700 

0006800 

0000900 

0001000 

0601100 

6001200 

0001300 

1001400 

0001500 

0001600 

0001700 

0001800 

0001,900 

OOOZOCt) 

6002100 

0002200 

0002300 

0002400 

6002500 

0002600 

0002700 

0002800 

0002900 

0003000 

0003100 

0003200 

0003300 

0003400 

0003500 

0003600 

0003700 

0003800 

0003900 

0004000 

0004100 

0004200 

0004300 

0004400 

0004500 

0004600 

0004700 

0004800 

0004900 

0005000 

0005100 

0005200 

0005300 

0005400 

0005500 

0005600 

0005700 

0005800 

0005900 

0006000 


Source Code Listing for PREPWATE 



OJ 

00 


IRESTTI )=Q 
10 ILENGd)=0 

WRITE (35*1030) 

READ (30*1040) I l ENG 
WRITE (35*1050) 

READ (30*1040) IREST 
DO 20 1=1*30 

IF (ILENG(I).EQ.O) GO TO 30 
20 ILMAX=I 

30 WRITE (6*1060) ( ILENG( I ) * 1 = 1 * ILMAX) 

DO 40 1=1*30 

IF (IREST(I).EQ.O) GO TO 50 
40 IRMAX=I 

50 IBEG=ILMAX+1 

IEND=ILMAXURMAX 
DO 60 1=1*60 
60 IALL(I)=0 

DO 70 1=1 • ILMAX 
70 IALL( I )=ILENG( I) 

DO 00 I =IBEG* IEND 
1RST=I-IBEGU 
80 IA1 L ( I ) =IREST ( IRST ) 

C I ALL CONTAINS ALL THE COMPONENT NUMBERS FOR WHICH WE NEED INPUTS 

C NOW IDENTIFY COMPONENT TYPE PER NNEP GENERIC TYPE 

WRITE (35*1070) 

DO 90 1 = 1 * IEND 

WRITE (35*1080) IALL(I) 

READ (30.1090) ITYPE(I) 

90 CONTINUE 

DO 110 1=1 • IEND 
DO 100 J=l*ll 

IF ( ITYPE( I ) . NE . I WORD ( J ) ) GO TO 100 
ITYPEI ( I ) =J 
GO TO no 
100 CONTINUE 

110 CONTINUE 

C ITYPEI HAS COMPONENT TYPE BY NUMERICAL TYPE 

WRITE (35*1100) 

JCX=0 

120 JCX=JCX+1 

JCXX=IALL( JCX) 

IF (JCX. GT. IEND) GO TO 570 
IGO=ITYPEI( JCX) 

GO TO (130.140.240,250,330,390,430,440*480*560,520)* IGO 
C INLET YOU DUMMY 

130 GO TO 120 

C DUCT 

140 WRITE (35*1110) IALL(JCX) 

READ (30,1120) IJK 

IF (IJK.EQ.AA) IWMECC 1 , JCXX) = PBURX 

IF (IJK.EQ.AA) KT=1 

IF (IJK.EQ.BB1 IWMEC( 1,JCXX)-DBURX 

IF (IJK.EQ.BB) KT=2 

IF (IJK.EQ.CC) IWMECd. JCXX)=AUGX 

IF (IJK.EQ.CC) KT=3 

IF (IJK.EQ.DD) IWMECd, JCXX)=DUCTX 

IF (IJK.EQ.DD) KT=4 

IF (KT.EQ.4) GO TO 150 

WRITE (35,1130) 

READ (30.1120) IJK 


0006100 
0006200 
0006300 
0006400 
0006500 
0006600 
0006700 
0006800 
0006900 
0007000 
0007100 
0007200 
0007300 
0007400 
0007500 
0007600 
0007700 
0007800 
0007/9 tfO 
OOOfiOCO 
0008100 
0008200 
0008300 
0008400 
0008500 
0008600 
0008700 
0008800 
0008900 
0009000 
0009100 
0009200 
0009300 
0009400 
0009500 
0009600 
0009700 
0009800 
0009900 
0010000 
0010100 
0010200 
0010300 
0010400 
0010500 
0010600 
0010700 
0010800 
0010900 
0011000 
0011100 
0011200 
0011300 
0011400 
0011500 
0011600 
0011700 
0011800 
0011900 
0012000 



CO 


IWMECd, JCXX) = 6 

IF (IJK.EQ.AA) IUMEC( 2 , JCXX ) -1 
GO TO 160 
WRITE ( 35* 11 AO) 

READ (30.1120) IJK 
IF (IJK.EQ.AA) IWMEC (2,JCXX) = 1 
IF (IJK.EQ.BB) IWMECd, JCXX>=2 
IF ( IJK. EQ.CC) IWMECd . JCXX) =3 
IF (IJK.EQ.DD) IWMECd, JCXX)=A 
IF (IJK.EQ.EE) IWMECd » JCXX) -5 

NOW FILL IN THE DEFAULT VALUES FOR THIS COMPONENT 
DO 170 1=1.17 

DESVALCI. JCXX)=DEFAUL(I,KT) 

KX= JCXX 

WRITE T (35;il50) AA . DESVAL ( 1 , KX ) . RMINC 1 . KT ) , RMAX( 1 . KT ) . BB . DESVAL (2. 

lKX).RriIN(2.KT).RMAX(2.KT).CC.DESVAL(3.KX),RMIN(3,KT).RMAX(3.l(T>.DD 

2 . DESVAL (4 . KX ) .RMINC A . KT) . RMAX< A * KT) . EE.DE5VALC5.KX) . RMIH(5, KT ) . RMA 
3X( 5. KT) 

GO TO 220 

IF (KT.GT.2) GO TO 200 

WRITE (35.1160) AA. DESVAL d , KX) .RMINd . KT ), RMAXd . KU.BB, DESVAL (2, 
lKX).RriIN(2.KT).RMAX(2.KT).CC,DESVAL(3.KX).RMlN(3.KT).RMAX(3.KT),DD 
2 * DESVAL (A ,KX) .RMINC A , KT ) , RMAX( A ,KT) . EE, DESVAL ( 5 . KX) » RMINC 5. KT) *RMA 
3XC5.KT) 

GO TO 220 

IF (KT.GT.3) GO TO 210 

WRITE (35.1170) AA . DESVAL ( 1 . KX) . RMINU .KT ) .RMAX( 1 ,KT ). BB . DESVAL ( 2 , 

1KX).RMIN(2,KT).RMAX(2.KT),CC.DESVAL(3,KX).RHIN(3.KT).RMAX(3.KT),DCJ 

2 , DESVAL ( A »KX) ,RMIN( A , KT) , RMAX( A . KT) * EE. DESVAL ( 5 .KX) . RMINC 5. KT ) .RMA 
3XC5.KTO 
GO TO 220 
CONTINUE 

WRITE (35.1200) AA,DESVALCl,KX),RMINd,KT).RMAXd.KT),BB, DESVAL (2. 
1KX) , RMINC2. KT ).RMAX(2*KT ) . CC. DESVAL (3.KX) .RMINC 3.KT ) . RhAX( 3 »KT) » DD 
2 . DESVAL (A »KX) . RMINC A . KT ) #RMAX( A . KT) 

WRITE (35.960) QQ.RR.TT 
CALL REDOEM ( IHD. DESVAL . JCXX ) 

IF ( IND. HE. QQ .AND. IND. HE .TT.AND.IND.NE.RR) GO TO 230 
IF ( IND. EQ . QQ) GO TO 570 
IF ( IND. EQ. TT) GO TO 120 
IF (IND.EQ.RR) GO TO 180 

HO WEIGHT OR DIMENSIONS FOR WATER INJECTORS 

CONTINUE 

GO TO 120 

WRITE (35.950) IALLCJCX) 

READ (30.1120) IJK 

IF (IJK.EQ.AA) IWMECC 1 . JCXX) =FANX 

IF (IJK.EQ.AA) KT=5 

IF (IJK.EQ.BB) IWMECd, JCXX)=FOX 

IF (IJK.EQ.BB) KT=6 

IF (IJK. EQ.CC) IWMECd, JCXX) = FIX 

IF (IJK. EQ.CC) KT=7 

IF (IJK.EQ.DD) IWMECd, JCXX)=RSFOX 

IF (IJK.EQ.DD) KT = 8 

IF (IJK.EQ.EE) IWMECC 1, JCXX)=R5FIX 

IF (IJK.EQ.EE) KT=9 

IF (IJK.EQ.FF) IWMECd. JCXX)=LPCX 

IF (IJK.EQ.FF) KT=1 0 

IF (IJK.EQ.GG) IWMECd, JCXX)=IIPCX 




■p» 

o 


IF (IJK.EQ.GG) KT=11 
WRITE (35,850) 

READ (31.1121) IJK 
IF (IJK.EQ.AA) IWMEC(2, JCXX)=1 
IF (IJK.EQ.BB) IUMECI2, JCXX)=0 
IF (IJK.EQ.CC) IWMEC(2, JCXX)-2 
WRITE (35.861) 

READ (31.1121) IJK 
IF (IJK.EQ.AA) IUMECC 3, JCXX)=0 
IF (IJK.EQ.BB) IUtlECC 3, JCXX) -1 
IF (IJK.EQ.CC) IUMEC(3.JCXX)=2 
IF (IJK.EQ.DD) IWMECC 3, JCXX) = 4 
WRITE (35.871) 

READ (31.1121) IJK 
IF (IJK.EQ.AA) IWMEC( 4 , JCXX ) =0 
IF (IJK.EQ.BB) IWLIEC(4.JCXX)n 
IF (IJK.EQ.CC) IWMEC( 4 . JCXX > =2 
IF (IJK.EQ.DD) IWI1ECI4. JCXX)-4 
IF (KT.IT.6.0R.KT.6T.9) GO TO 260 
WRITE (35.880) 

READ (30.891) IWMEC(5. JCXX) 

WRITE (35.911) 

READ (31,891) IWMEC(6, JCXX) 

WRITE (35.911) 

READ (31,891) IWMEC(7, JCXX) 

HOW Fill IH THE DEFAULT VALUES FOR THIS COMPONENT 
DO 270 1=1,17 

DESVAl ( I , JCXX)-DEFAUL ( I . KT ) 

IF (IWnEC(2, JCXX).HE.2) GO TO 290 
DES VAL ( 4 . J CXX > = DESVAl ( 1 0 . JCXX ) 

DESVAl ( 5 . JCXX)-DESVAL ( 7 . JCXX ) 

DESVAL (6 . JCXX)=1 . 

DO 280 II J=7 ,17 
DESVAL ( I I J, JCXX) =0 . 

GO TO 310 

HOW WE UPDATE COMPRESSOR DESIGN VALUES 

WRITE (35.930) AA. DESVAL ( 1 , JCXX) , RMIH( 1 ,KT) ,RMAX( 1 ,KT) .BB.DESVAM2 

U» C ™ > i{!?. I .!l. ( ?I K Ti^S MA 2 (Z ' KT> ' CC ' DE5mf3 ' JCXX) ' RI11H<J ' ,CT) ' R,1AX(1 >* 

21). DD.DESVAK4. JCXX). RMIH(4,KT>.RMAX(4.KT). EE. DESVAK5. JCXX), RMN( 
35 ,KT ) ,RMAX(5,KT ) , FF, DESVAL ( 6 . JCXX) , RMIH( 6 ,KT) ,RMAX(6,KT) . GG, DESVAL 
i < 2;* C ?? ) A5 n . I . M, ?i ,tT>,R,1AX(7,,CT) ' HH,DESWAl<8, JCXX).RMIN(8.KT>.RMAX(8 
?:5I?; I, I;? E I v ^ l {?: JCXX) ' RnlN<9 * XT, ' Rf,AX<, ' ICT) ' JJ ' DESVAl ‘> , i*Jcxx).RM 
5/ H ii?' K *?: RnAxt * KK * DESVAL * 1 1 • Jc^jo , R niHC 1 1 . ktj .rmaxc 11 . kt > , l 

Zi:°S5y A k < i Z ' JCXX, * R,1,M,l2 ' KI) - Rf1AX ‘12.KT).Hl1.0ESV A lU3.JCXX).RMIN( 
8I3.KT),RMAX(13.KI).HN.DESVALU4.JCXX).RMIN(14.KT>.RI1AX(14.KT).00,D 
9ESVAL( 15, JCXX).RMIN()5,KT) ,RMAX( ) 5.KT ) ,PP, DESVAL ( 16 . JCXX) , RMIH( ) 6 , 

$K .Ih5 M J X,I6,,t,) ' SS ' OESVAL<17 ' JCXX),RnIHtl7 > KI) ' RnAX(l7 ' K T) 

WRITE (35.960) QQ.RR.TT 
CALL REDOEM ( IHD. DESVAL . JCXX) 

IF ( IHD.HE.4Q. AHD. IHD.NE. TT . AND. IND. NE.RR) GO TO 300 
IF (IHD.EQ.QQ) GO TO 570 
IF (1HD.E4.TT) GO TO 120 
IF (IHD.EQ.RR) GO 10 290 

WRITE (35.940) AA. DESVAL ( 1 .JCXX) ,RMAN< 1 ) ,RMIX< 1 ), BB. DESVAL < 2. JCXX) 
1 .RMAIK2) ,RMIX(2),CC, DESVAL ( 3, JCXX) , RMAN( 3) ,RMIX( 3) , DD, DESVAL ( 4 , JCX 
2X) ,RttAII(4 ) ,RIUX(4) , EE, DESVAL ( 5, JCXX ) , RMAN( 5) , RL1IX(5),FF,DESVAl(6,J 
JCXX), R11AM(6).RMIX(6>,CG. DESVAK7, JCXX), RMAN< 7 ) ,RHIX< 7 > 

WRITE (35.960) QQ.RR.TT 
CALL REDOEM (IND. DESVAl .JCXX) 

IF ( IHD. (IE. QQ. AND. IHD.NE . TT . AND. IHD. NE . RR) GO TO 320 




IF (IND.EQ.QQ) GO TO 570 
IF (IHD.EQ.TT) GO TO 120 
IF (IND.EQ.RR) GO TO 310 
COME HERE FOR TURBINES 
WRITE (35*770) IALL(JCX) 

READ (30*1120) ITURB 
IF (ITURB. EQ.HH) IWMECCl * JCXX) =HPTX 
IF (ITURB. EQ.lt) IWt1EC( 1 * JCXX) = LPTX 
liRITE (35.730) 

READ (30*1120) UK 
IF (IJK.EQ.AA) IWMECC2, JCXX)=0 
IF (IJK.EQ.BB) IUriEC(2. JCXX) = 1 
WRITE (35*790) 

READ (30*1040) IWMEC( 3* JCXX) 

WRITE ( 35* B00 ) 

READ ( 30 * &20 ) IWMEC(4, JCXX) 

WRITE (35,830) 

READ (30*1040) IWMEC( 5* JCXX) 

WRITE (35*040) 

READ (30*1120 ITURB 
IF (ITURB. EQ.RR) IUMEC( 6 , JCXX)=2 
IF (ITURB. EQ.AA) IUMEC( 6 , JCXX) = 0 
KT = 12 

IF ( IWMEC( 1 * JCXX) . EQ . LPTX) KT = 13 
IF ( IUHEC( 6 * JCXX) . EQ . 2 ) KT = 14 
DO 340 1=1*17 

DESVAL ( I * JCXX )=DEFAUL ( I , KT ) 

IF (KT.EQ.14) GO TO 370 

WRITE (35.730) AA.OESVALd .JCXX) ,RMIH(1 *KT>*RMAX(1 ,KT), BB. DESVAL (2 
1 » JCXX) »RMIN( 2 » KT) * RMAXC2 ,KT),CC,DESVAL(3,JCXX), RMlN( 3 . KT ) . RMAXC 3 . K 
21 )*DD* DESVAL (4, JCXX) *RMIN<4,KT),RNAX(4,KT>.EE,DE5VAL(5. JCXX),RMIH( 
35 . KT ) » RMAX( 5 ,KI),FF,DESVAL(6,JCXX),Rt1IN(6,KT), RMAXC 6 * KT )> GG* DESVAL 
4(7* JCXX). RniN(7,KT). RMAX( 7, KT).HH, DESVAL (6. JCXX), RMIN(8 , KT) , RMAX(8 
5. KT), II. DESVAL (9* JCXX),RniH(9, KT) ,RMAX(9,KT) , J J , DESVAL ( 1 0 , JCXX),RM 
6IN(10.KT>.RMAX<10,KT),KK.DESVALdl, JCXX > , RMINd 1 , KT > . RMAXd l , KT ) , L 
71. DESVAL (12. JCXX), RMINd 2, KT),RMAX( 12, KT)*PP, DESVAL (16. JCXX), RMIH( 
BH* KT >,RMAX(16, KT ), SS, DESVAL (1 7, JCXX), RfllMd 7, KTJ.RMAX (17, KT) 

WRITE (35.960) QQ.RR.TT 
CALL REDOEM (IHD. DESVAL * JCXX) 

IF (IHD.NE.QQ.AHD.IND.NE.TT.AHD.IND.NE.RR) GO TO 360 
IF (IHD. EQ. QQ) GO TO 570 
IF (IHD.EQ.TT) GO TO 120 
IF (IND.EQ.RR) GO TO 350 

WRITE (35,740) A A * DESVAL d , JCXX >, RMINd * KT ). RMAXd ,KT )* FF* DESVAL (6 
1, JCXX),RMINC6,KT),RMAX(6,KT) 

WRITE (35.960) QQ.RR.TT 
CALL REDOEtl (IHD, DESVAL . JCXX) 

IF (1ND.NE.QQ. AND . IND. HE . TT . AND. IND. NE. RR) GO TO 380 

IF (IND.EQ.QQ) GO TO 570 

IF (IHD.EQ.TT) GO TO 120 

IF (IND.EQ.RR) GO TO 370 

COME HERE IF NEAT EXCHANGER 

WRITE (35.750) IALL(JCX) 

IllMECd , JCXX) =HTXX 
READ (30,1120) IHX 
IF (INX.EQ.FF) IUflEC ( 2 , JCXX) = 1 
IF dllX. EQ.RR) IIJMEC( 2, JCXX) = 2 
WRITE (35,760) 

READ (30,1120) IDIR 
IF (IDIR.EQ.PP) IWMEC( 3, JCXX)=1 




-p* 

ro 


IF ( IDIR . EQ.CC) IWMECd, JCXX)=2 
KT = 15 

DO 400 1=1,17 

DESVALd, JCXX) =DEFAUL ( I , K T) 

WRITE ( 35* 920 ) AA,DESVAL( 1 .JCXX) .RMIHCl.KT) .RMAXC 1 ,KT) ,BB, DESVAL (2 
1, JCXX), RMINd.KT ),RMAX (2, KT),CC, DESVAL (3, JCXX) » RMINd.KT) , RMAXd.K 
2T) ,DD, DESVAL (4, JCXX) » RMINd.KT) , RMAXd.KT) 

WRITE (35.960) QQ.RR.TT 
CALL REDOEtl ( IHD, DESVAL . JCXX) 

IF ( IND.NE. QQ. AND. IHD. NE. TT . AND. IND.NE. RR) GO TO 420 

IF (IND.EQ.QQ) GO TO 570 

IF ( IHD. EQ. TT) GO TO 120 

IF ( IHD. EQ . RR) GO TO 410 

COME HERE IF SPLITTER 

WRITE (35.6&D) IALLCJCX) 

READ (30.1010) IWJ1EC(2. JCXX) 

IWMECd. JCXX) = IWORD(7) 

IF ( JCXX. ME. ILENG( 1 ) ) GO TO 120 
FIRST COMPONENT 
WRITE (35.690) 

READ (30.700) DESVALd .JCXX) ,DESVAL(2, JCXX) 

GO TO 120 

COME HERE IF MIXER 
WRITE (35.710) IALL(JCX) 

READ (30.1120) IMIXR 
IF (IMIXR. EQ.FF) IWMECd , JCXX) = FMIX 
IF (IMIXR. EQ.CC) IWMECd * JCXX ) =MIX 
WRITE (35,720) 

READ (30.1010) IWMECd, JCXX) 

KT = 16 

DO 450 1=1.17 

DESVAL (I.JCXX)=DEFAUL( I, KT) 

WRITE (35.600) AA, DESVAL (1 .JCXX) »RMIN(1,KT) »RMAX( 1 , KT) . BB. DESVALd 
1 , JCXX),RMIN(2,KT) , RMAXC2.KT) 

WRITE (35.960) QQ.RR.TT 
CALL REDOEM (IND, DESVAL , JCXX ) 

IF ( IND.NE. QQ. AND. IND.NE. TT . AND. IND.NE. RR) GO TO A70 

IF (IND.EQ.QQ) GO TO 570 

IF (IND.EQ.TT) GO TO 120 

IF (IND.EQ.RR) GO TO 460 

COME HERE IF NOZZLE 

WRITE (35.610) IALL(JCX) 

IWMECd, JCXX)=NOZX 

READ (30,1010) IWMECd. JCXX) 

WRITE (35.A10) 

READ (30,620) IWMEC( 3, JCXX) 

WRITE (35,620) 

READ (30,1010) IWMECd, JCXX) 

KT = 17 

DO 490 1=1,17 

DESVAL (I , JCXX) =DEFAUL (I , KT ) 

WRITE (35,630) AA .DESVAL ( 1 , JCXX) , RMINd , KT ), RMAXd ,KT ), BB . DESVAL (2 
1, JCXX).RMIN(2,KT),RMAX(2,KT) 

WRITE (35.960) QQ.RR.TT 
CALL REDOEM (IND, DESVAL , JCXX) 

IF (IMD.NE.QQ.AHD.IND.NE.TT.AHD.IND.NE.RR) GO TO 510 
IF (IND.EQ.QQ) GO TO 570 

IF (IND.EQ.TT) GO TO 120 

IF (IND.EQ.RR) GO TO 500 

COME HERE IF SHAFT 
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WRITE (35,640) IALL(JCX) 

IMMECCl , JCXX)=SHAFX 

READ (30.1010) II4MECC2# JCXX) 

WRITE (35.650) 

READ (30.1040) ( IWMEC(NN, JCXX) . NN = 3, 6 ) 

WRITE (35.660) 

READ (30.1040) IWMEC(7, JCXX) 

KT=ia 

DO 530 1=1,17 

DESVAL ( I , JCXX)=DEFAUL ( I , KT ) 

WRITE (35,670) AA , DESVAL ( 1 . JCXX) , RMIN( 1 ,KT ) ,RMAX( 1 , KT ). BB, DESVAL (2 
1,JCXX),RMIH(2,KT), RMAX( 2 ,KT),CC,DESVAL(3, JCXX ),RMIN(3,KT), RMAX( 3 , K 
2T ) , DD* DESVAL ( 4 , JCXX) • RMIHC4 , KT ) , RMAX(4 ,KT ) , EE. DESVAM5, JCXX) , RMIH( 
35,KT),RMAX(5,KT),FF,DESVAL(6. JCXX) , RMIMC 6 , KT ) , RMAX( 6 . KT ) , 60, DESVAL 
4(7 , JCXX)»RMIN(7,KT) ,RMAX(7 , KT ) 

WRITE (35,960) QQ.RR.TT 
CALL REDOEM ( IND, DESVAL , JCXX ) 

IF (IHD.HE.QQ.AHD.IHD.NE.TT.AND.IHD.NE.RR) GO TO 55d 

IF (IHD.EQ.QQ) GO TO 570 

IF (IND.EQ.TT) GO TO 120 

IF (1HD.EQ.RR) GO TO 540 

CONTINUE 

GO TO 120 

DO 5S0 1=1,60 

IF ( IWMEC( 1 , I ) . EQ . 0 ) GO TO 58Q 
WRITE (6.1U0) I , ( IWMECC J ,I),J = 1,7) 

CONTINUE 
DO 590 1=1,60 

IF ( IWMEC ( 1 , 1 ) . EQ. 0 ) GO TO 590 
WRITE (6.1190) I,(DESVAL(J,I), J=l,17) 

CONTINUE 
WRITE (6,1230) 

STOP 

FORMAT ( * OMIXER '/' CODE VALUE DESCRIPTION' , 31X, ■ LOW VALU 

IE-HIGH VALUE' /IX, A1.F9-4, ' EFF. L/DIAM IF FORCED MIXER ',F20.4,F1 
20 . 4/1X, A1 » F9 . 0 , 1 NUMBER OF PASSAGES OR LOBES F22 . 0 , FI 0 . 0 ) 

FORMAT C COMPONENT Ml,' IS A NOZZLE, ENTER NOZZLE TYPE'/* 1= CO 
1NVERGENT '/ ' 2= C-D VARIABLE AREA') 

FORMAT rOEMTER THRUST REVER5ER TYPE, 0=HONE, 1=FAN, 2=PRIMARY*/ ' 
1_') 

FORMAT CONOZZLE •/• CODE VALUE DESCRIPTION* , 31X, *LOW VALU 

IE-HIGH VALUE'/1X,A1,F9.4, ' LENGTH TO DIAMETER RATIO *,F20.4,F1 
20 . 4/1X, A1 , F9 . 4 , ’ BYPASS RATIO FOR MIXED FLOW* , F21 . 4 , FI 0 . 4 ) 

FORMAT (' COMPONENT *,I3,' IS A SHAFT, ENTER SHAFT HUMBER FROM INN 
1ER TO OUTER. I.E. 1 2 3 ETC.'/' _•) 

FORMAT COENTER TURBINES CONNECTED TO THIS SHAFT'/* •) 

FORMAT COENTER COMPONENT NUMBER OF FIRST COMPRESSOR ON THIS SHAFT 
1*/' _') 

FORMAT ('OSHAFT '/' CODE VALUE DESCRIPTION* , 31X, 'LOU VALU 

IE-HIGH VALUE'/1X,A1,F9.2, ' SHAFT ALLOWABLE STRESS *,F20.2,F1 

20 . 2/1X, A1 , F9. 2, ' SHAFT MATERIAL DENSITY ' , F22 . 2, FI 0 . 2/1X, A1 , F 
39.4,' DIAMETER RATIO ( IIINER/OUTER) • , F21 . 4 , FI 0 . 4/4 ( IX, A1 , F9 . 0 , * C 
40MP0NENT NUMBER OH SHAFT FOR INERT I A » . F 12 . 0 , FI 0 . 0/ ) ) 

FORMAT (' COMPONENT '.13,' IS A SPLITTER'/' WEIGHT AND LENGTH ARE 
1IGNORED UNLESS FIRST COMPONENT IN THE ENGINE (AFTER INLET)'/' IF I 
2IINER STREAM IS HOT PRIMARY ENTER A "I" OR ELSE JUST NIT RETURN'/' 
3_* ) 

FORMAT (' ENTER MACH NUMBER IN AND HUB TO TIP RATIO IN'/' 

1 ') 


0036100 

0036200 

0036300 

0036400 

0036500 

0036600 

0036700 

0036&00 

0036900 

0037000 

0037100 

0037200 

0037300 

0037400 

0037500 

0037600 

0037700 

0037B00 

0032900 

0005000 

0036100 

003B200 

0038300 

0038400 

0030500 

0038600 

0038700 

0038600 

0038900 

0039000 

0039100 

0039200 

0039300 

0039400 

0039500 

0039600 

0039700 

0039800 

0039900 

0040000 

0040100 

0040200 

0040300 

0040400 

0040500 

0040600 

0040700 

0040800 

0040900 

0041000 

0041100 

0041200 

0041300 

0041400 

0041500 

0041600 

0041700 

0041800 

0041900 

0042000 
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FORMAT (F6.0.F7.0) 

FORMAT C COMPONENT M3,' IS A MIXER, ENTER TYPE'/* F- FORCED MIX 
1ER (MECHANICAL - DAISY LOBE TYPE) 1 /' C- COANNULAR EMERGENCE (NOT F 
20RCED) ' ) 

FORMAT C ENTER PRIMARY INPUT NODE, 0=INNER, l=OUTER'/' •) 

FORMAT ( ' OTURBINE */' CODE VALUE DESCRIPTION* , 31X7*L0W VALU 

IE-HIGH VALUE'/1X»A1,F9.A,' FACE INLET MACH NUMBER *,F20.A,F1 

20.A/1X,A1,F9.5, * LOADING PARAMETER • , F27 . 5. FI 0 . 5/1X, A1 , F9 . 5, • 
3 BLADE SOLIDITY (CORD/SPACING) 1 , F5 . 3,F11 . 3/1X, A1 , F9. 

A*,* BLADE ASPECT RATIO- 1ST STAGE • , F15 . A , FU . A/1X, A1 , F9. A.31H 

5 BLADE ASPECT RATIO-LAST STAGE, FI 9. A, Fll . A/1X, A1 , F9 . A , 32H TURBIN 
6E EXIT MACH NUMBER , F18 . A , FU . A/1X, A1 , F9. 0, 31H DISC REFERENC 

7E STRESS ,FI9.0,F11.0/1X,A1,F9.Q,32H i=CQN5T TIP DE5N.2=ME 

BAH , 3-HUB ,F18.0,F11.0/1X,A1,F9.A, 32H MAX. SPEED RATIO RPMMAX/RPMD 
9 ,F1B.A,F11.A/IX,A1,F9.A,31H CONTROL RADIUS- 0 IF TRANSFRD, F19 . A 

$,F11.A/1X,A1,F9.A,32H BLADE MATERIAL DENSITY 0=T-SET,F1S. A, Fll. A/ 
$ IX, A1 , F9. A , 32H BLADE VOLUME FACTOR , FIB . A , FIX . A/1X, A1 , F 

B9.A.32H BLADE TAPER RATIO . FIB. A , Fll . A/1X. A1 , F9 . A, 32H 

B STATOR BLADE VOLUME FACTOR ,F18.A,F11 .A) 

FORMAT ('OTURBINE •/• CODE VALUE DESCRIPTION* , 31X, HOW VALU 

IE-HIGH VALUE*/1X,A1,F9.A,* FACE INLET MACH NUMBER *,F20.A,F1 

20 . A/1X, A1 » F9 . A » 1 EXIT MACH NUMBER * ,F26 . A,F10. A) 

FORMAT (• COMPONENT * , 13, * IS A HEAT EXCHANGER, OPTIONS ARE*/* F- 
1FIXED OR*/* R- ROTARY*) 

FORMAT (• FLOW DIRECTION IS*/' p- PARALLEL*/' C- COUNTER FLOW*) 
FORMAT (• COMPONENT ',13,* IS A TURBINE, OPTIONS ARE (ENTER CORRE 
1CT LETTER)*/* H- HIGH PRESSURE TURBINE'/* L- LOU PRESSURE TURBINE* 
2) 

FORMAT (* A- NO FRAME*/* B- TURBINE HAS EXIT FRAME*) 

FORMAT (• ENTER COMPONENT NUMBER OF COMPRESSOR THAT SETS TURBINE R 
1PM*/* •> 

FORMAT (* ENTER COMPONENT NUMBER THAT LIMITS TURBINE OUTER RADIUS* 

1/* (♦ = OUTLET. - = INLET. 0 = FEEDING COMPONENT)*) 

FORMAT (* ENTER COMPONENT NUMBER THAT LIMITS NOZZLE OUTER RADIUS*/ 

1* (♦ = OUTLET, - = INLET, 0 = FEEDING COMPONENT)') 

FORMAT (13) 

FORMAT (* YOU MAY ENTER THE NUMBER OF STAGES IF DESIRED, OTHERWISE 

1 ENTER 0*/* __•) 

FORMAT (* R- RADIAL FLOW TURBINE*/' A- AXIAL FLOW TURBINE*) 

FORMAT ( * OIHDICAIE WHETHER THERE ARE STATORS OR IF THIS IS A CENTR 
IIFUGAL COMPRESSOR*/* A- CALCULATE STATOR WEIGHT*/* B- NO STATOR WE 
2IGHT '/ ' C- CENTRIFUGAL COMPRESSOR') 

FORMAT CO INDICATE WHETHER THERE IS A FRONT FRAME IN THE COMPRESS 
10R*/* A- NO FRAME*/* B- SNGL BEARING FRAME FOR TFS AND TJS WITHOUT 

2 POWER TAKEOFF (PTO)'/* C- SINGLE BEARING FRAME WITH PTO*/' D- TWO 

3 BEARING FRAME WHICH EXTENDS OUTWARD TOTHE FAN OUTER CASE AND HOLD 
AS TWO BEARINGS WITH PTO') 

FORMAT CO INDICATE WHETHER THERE IS A REAR FRAME IN THE COMPRESS 
10R '/ • A- NO FRAME*/* B- 5NGL BEARING FRAME FOR TF5 AND TJS WITHOUT 

2 POWER TAKEOFF (PTO)*/* C- SINGLE BEARING FRAME WITH PTO*/' D- TWO 

3 BEARING FRAME WHICH EXTENDS OUTWARD TOTHE FAN OUTER CASE AND HOLD 
AS TWO BEARINGS WITH PTO*) 

FORMAT ( ' OSPL IT FLOW COMPRESSOR - ENTER COMPONENT NUMBER OF OTHER 
IHALF OF COMPRESSOR*/* __• > 

FORMAT (12) 

FORMAT ( * OGEAR BOX INDICATOR, 0= NO GEAR BOX, N = SHAFI NUMBER FOR GE 
1AR BOX*/* _• ) 

FORMAT ( ' OYOU MAY SPECIFY THE NUMBER OF 5TAGE5-0VERRIDES MAX PR/ST 
1G.» OTHERWISE ENTER 0*/' __*) 

FORMAT ( * OHEAT EXCHANGER'/* CODE VALUE DESCRIPTION' , 31X, *LOW VALU 



4 ^ 

On 


IE-HIGH VAIUE'/1X,A1»F9.0, • HUMBER OF TUBES IF "FIXED" *,F20.D,F1 
20.0/lX,Al,F9.4, ' MACH HUMBER - PRIMARY ' , F27 . 4 , FI 0 . 4/ IX, Al , F9 . 4 . ' 
3 MACH HUMBER- IN SECONDARY • , F5 . 4 , F11 . 4/1X, A1 , F9 . 

44# ' BYPASS RATIO IF "ROTARY" ■ , F15 . 4. Fll .4) 

930 FORMAT ( * OFAH/COMPRESSOR • / * CODE VALUE DESCRIPTION* , 31X# 'LOW VALU 
IE-HIGH VALUE'/1X,A1»F9.4, • FACE INLET MACH NUMBER •.F20.4.F1 

20 . 4/lX. Al # F9 . S# 1 MAX 1ST STAGE PRATIO • , F27 . 5# FI 0 . 5/1X, A1 , F9 . 3, • 
3 COMPRESSOR FACE HUB TO TIP RATIO ' , F5 . 3 , Fll . 3/1X , Al . F9 . 

44, * BLADE** SOLIDITY (CORD/SPACING) • # F15 . 4 , Fll . 4/1X# A1 , F9 . 4 , 31H 

5 BLADE ASPECT RATIO-1ST STAGE . F 1 9 . 4 . F II . 4/lX, A1 , F9 . 4 # 32H BLADE 

6ASPECT RATIO-LAST STAGE , F18 . 4 , Fll . 4/ IX, Al , F9. 4 , 31H COMPRESSOR EX 
7 IT MACH HUMBER ,F19.4,F11.4/1X. A1,F9.4,32H MAX. COMP. INLET T- 0 
B=CALC*D ,F18.4»F11.4/1X,A1,F9.4,32H MAX. COMP. EXIT T- Q=CALC*D 
9 ,F18. 4, Fll. 4/lX#Al,F9. 4,3111 MAX. SPEED RATIO RPMMAX/RPMD ,F19.4 

8 ,FU.4/1X,A1.F9.4,32H BLADE MATERIAL DENSITY 0=T-SET, F18 . 4 , Fll . 4/ 
$IX,A1.F9.0,32H l=COHST . HUB , 2=MEAN, 3=TIP DESN. #F18. 0.F11 . 0/1X, A1 , F 
49 . 4 , 32H RPM SCALER TO MATCH KNOWN RPM , F18 . 4 , FI 1 . 4/lX, A1 • F9 . 4 , 32H 
$ TEMP FOR MATERIAL CHANGE , FIS . 4 , FU . 4/lX. Al , F9) 4 . 31H WEIGH 

$T SCALER 0=AS CALCUL ATED, FI 9 . 4 , F 1 1 . 4/lX, A1 , F9 . 4 . 32H STATOR BLADE 
4TAPER RATIO , F18 . 4 , FI 1 . 4/lX , A1 , F9 . 4, 32H BLADE VOLUME RATIO 

$ , F18 . 4 , FI 1 . 4 ) 

940 FORMAT ( 1 OCEHTRIFUGAL « •/' CODE VALUE DESCRIPTION* , 31X, *LOW VALU 
IE-HIGH VALUE'/1X,A1,F9.4# * FACE INLET MACH NUMBER *,F22.4,F1 

21 . 4/lX, A1 • F9 . 5, ' MAX 1ST STAGE PRATIO * ,F29.5, FlO . 5/1X, A1 . F9. 3, * 
3 COMPRESSOR FACE HUB TO TIP RATIO * , F6 . 3 , Fll . 3/1X, A1 , F9 

4.4,* RPM RATIO - RPMMAX/RPMD * , FI 5 . 4 , FIX . 4/lX , Al , F9 . 4 , 31 

5H COMPRESSOR EXIT MACH NUMBER , FI 9 . 4 . Fll . 4/lX , Al , F9 . 4 , 32H GEAR 

6 RATIO OF POUER SHAFT . F18 . 4 . Fll . 4/lX, Al , F9 . 4 , 3111 HORSEPOWER 0 

7F POWER SHAFT , FI 9 . 4 , Fll . 4 ) I 

950 FORMAT (* COMPONENT *,I3,* IS A COMPRESSOR, OPTIONS ARE (ENTER CO 
1RRECT LETTER)'/* A- TYPICAL FAN'/' B- OUTER PORTION OF NQH-RQTATIM 
2G SPLITTER FAN*/' C- INNER PORTION OF NON-ROTATING SPLITTER FAN'/' 
3 D- OUTER PORTION OF ROTATING SPLITTER FAN'/* E- INNER PORTION OF 
4ROTATIHG SPLITTER FAN'/' F- LOW PRESSURE COMPRESSOR'/' G- HIGH PRE 
5SSURE COMPRESSOR*) 

960 FORMAT (1H0, 'ENTER LETTER FOLLOWED BY VALUE (INCLUDING DECIMAL POI 
1NT) OR ENTER*/1X,A1, 11X, 'QUIT PROCESSING ENTIRE EHGIHE'/1X, Al , 11X, 
2 'REVIEW UPDATED VALUES'/IX, A 1 , 11X TERMINATE - GO ON TO NEXT COMPO 
3HEHT ' ) 

970 FORMAT ('OENIER VALUES FOR IPLT (PRINTER PLOT), PLOT(GRAPNICS PLOT) 

1, ISIKSI INPUT), ISIO(SI OUTPUT) T OR F*/,' ') 

9S0 FORMAT (4L2) 

990 FORMAT (• AW IPL T= * , L2, * , PLOT = * , L 2 , ' , ISI 1= * , L2, • # ISIO= * , L2 , * , * ) 
1000 FORMAT ( * OEHTER VALUES FOR IWT (2=NO AIRFLOW SCAL ING,4 =WITH AIRFLO 
1W SCALING) AND'/.* IOUTCD (0=UT,L, A MAX R , 1 =ADD COMPONENT UTS,2=A 

2DD STAGE BY STAGE OUTPUT*/,* ') 

1010 FORMAT (11,12) 

1020 FORMAT (• IUT = ' , II , * , IOUTCD= * , 1 1 , 1H, ) 

1030 FORMAT ( 'OEHTER COMPONENT NUMBERS OF ALL COMPONENTS (EXCLUSIVE OF 
1INLETS AND UINJS) THAT CONTRIBUTE TO MAX LENGTH OF ENGINE (RT. ADJ 

2. )*/, * 

3 ') 

1040 FORMAT (12,2913) 

1050 FORMAT < * OEHTER COMPONENT NUMBERS OF ALL REMAINING COMPONENTS (EXC 

1LUSIVE OF INLETS, WIHJS, LOADS, CI1TLS, OPTUS, A LIMVS)'/,' 

2 1 

- 3 ') 

1060 FORMAT (< ILENG(1) = *, 30(12, lit,)) 

1070 FORMAT ('OYOU WILL NOW BE PROMPTED FOR THE GENERIC ( NHEP ) TYPE FOR 
I EACH COMPONENT (CnMP.TURB, ETC.)') 


8048100 

1048200 

1048300 

I04S400 

0048500 

6048600 

0048700 

0048800 

1048900 

0049000 

0049100 

0049200 

0049300 

0049400 

0049500 

0049600 

0049700 

604980Q 

0049900 

0050000 

oo5dm 

0050200 

0050300 

0050400 

0050500 

0050600 

0050700 

0050800 

0050900 

0051000 

0051100 

0051200 

0051300 

C051403 

0051500 

0051600 

0051700 

0051800 

0051900 

0052000 

0052100 

0052200 

0052300 

0052400 

0052500 

0052600 

0052700 

0052800 

0052900 

0053000 

0053100 

0053200 

0053300 

0053400 

0053500 

0053600 

0053700 

0053800 

0053900 

0054000 



-p* 

cr> 


1080 FORMAT C • OCOMPONENT • , 13, • IS A (A6)'/,' •> 

1090 FORMAT ( A6 ) 

1100 FORMAT ( 1 0 FOR EACH NNEP COMPONENT YOU MILL BE PROMPTED FOR THE WAT 
IE SUBCOMPONENT 1 ) 

1110 FORMAT (• COMPONENT MS,' IS A DUCT. OPTIONS ARE (ENTER CORRECT L 
1ETTER) '/, • A- PRIMARY BURNER'/, • B- DUCT BURNER'/, ' C- AUGMENTOR'/ 
2,' D- DUCT'/.' ENTER LETTER'/, • _•> 

1120 FORMAT (Al) 

1130 FORMAT (' A- BURNER HAS A FRAME'/,' B- NO FRAME'/, ) 

1U0 FORMAT (' TYPE OF DUCT'/,' A- OUMMY - NO MT OR LENGTH'/, ' B- INPUT 

1 LENGTH ( WILL SPECIFY l/D OF DUCT )•/,' C- LENGTH FROM CONNECTION 

2 BETWEEN SPLITTER AND MIXER'/' D- CROSSOVER DUCT FOR',' CENTRIFUGA 
3L COMPRESSORS'/' E- DIFFUSER FOR CENTRIFUGAL COMPRESSORS'/ ) 

1150 FORMAT ( ' OPRIMARY BURNER'/' CODE VALUE DESCRIPTION* , 32X, ' LOW VALU 
IE-HIGH VALUE*/1X,A1,F9.2» ' BURNER THRU-FLOW, • VELOCITY' , F25 . 2 » FI 
20 . 2/1X, Al , F9 . 5 , ' AIRFLOW RESIDENCY TIME' . F29 . 5 , FI 0 . 5/1X, Al ,F9 . 3, • 

3 MEAN DIAMETER - IF 0 MATCH" UPSTREAM CMPT . ' , F6 . 0 , FI 1 . 0/1X, Al ,F9 
6.0, • CMPT NUMBER FOR MATCHING DI AMETER' , F15 . 0 , FI 1 . 0/1X, Al . F9 . 0 , ' 

5 NUMBER OF CANS FOR CAN BURNER • , FI 9 . 0 . FI 1 . 0 ) 

1160 FORMAT ('ODUCT BURNER'/' CODE VALUE DESCRIPTION* , 35X, ' LOW VALUE-H 
1IGH VALUE'/1X,A1,F9.2,' BURNER THRU-FLOW,' VELOCITY' »F25.2,F10.2 
2/1X* Al . F9 . 5 , ' AIRFLOW RESIDENCY TIME' , F2 9 . 5, F10 . 5/1X. Al , F9 . 3, • M 
3EAN DIAMETER - IF 0 MATCH" UPSTREAM CMPT . • . F6 . 0 ,F1 I . 0/1X. Al , F9 . 0 , 
6' CMPT NUMBER FOR MATCHING DI AMETER* ,F15. 0, Fll . 0/lX,Al ,F9. 0, • NU 
5MBER OF CANS FOR CAN BURNER • , FI 9 . 0 , FI 1 . 0 ) 

1170 FORMAT ( 'OAUGMENTOR'/' CODE VALUE DESCRIPTION' , 37X, 'LOW VALUE-HIG 
1H VALUE'/1X,A1.F9.2,' BURNER THRU-FLOW,' VELOCITY' ,F25. 2, F10 .2/1 
2X, Al , F9 . 5 , ' AIRFLOW RESIDENCY TIME • , F29 . 5, F10 . 5/1X, Al , F9 . 3, • MEA 
3N DIAMETER - IF 0 MATCH" UPSTREAM CMPT . • , F6 . 0 , Fll . 0/1X, Al , F9. 0 , ' j 
A CMPT NUMBER FOR MATCHING DI AMETER ', F15 . 0, Fll . 0/1X, Al , F9 . 0, ' NUMB 
5ER OF CANS FOR CAN BURNER ' , FI 9 . 0 , FI 1 . 0 ) 

1180 FORMAT (IX. • IWMEC( 1 , » , 12 , • > = 6H • , A6 , » , » , 6 ( 1 3 , 1H, ) ) 

1190 FORMAT ( IX, • DESVAL ( 1 , • , 12 . • ) = ' , 7 ( G1 0 . 4 , 1H . )/2X, 1 0 ( G10 . 6 . 1H , ) ) 

1200 FORMAT ('ODUCT '/• CODE VALUE DESCRIPTION' , 37X, 'LOW VALUE-HIG 
1H VALUE'/1X,A1,F9.2,* DUCT MACH NUMBER * , F25 . 2 , FI 0 . 2/1 

2X.A1.F9.5,' LEN/HT IF MODE B ' , F33. 5, F10 . 5/1X, Al , F9 . 3, ' DUCT 

3 MEAN DIAM. IF =0 CALC. PER NODE BELOW ' . F9 . 0 , FI 1 . Q/1X , Al , F9 . 0 , » I 
6F NODE, 0=MEAN D SPECIFIED,-! =CONN. COMP . ' . FI 1 . 0 . FI 1 . 0 ) 

1210 FORMAT ('ODO YOU WANT BOEING OR GARRETT METHOD FOR DISK WEIGHT CAL 
1CULATIONS?'/' ENTER B FOR BOEING OR G FOR GARRETT'/' _' ) 

1220 FORMAT (' DISKWI = ' , F2 . 0 , • , ACCS = 0 . 1 , ISCAL E( 1 ) = 2 , 3, 5CAL E( 1 ) = 1 . , .8,1 
1.2, ACCARM-0 • ' ) 

1230 FORMAT (' I END' ) 

END 

SUBROUTINE REDOEM( IX. DESVAL , JCXX) 

IMPLICIT REAL*8 (A-II.O-Z) 

DIMENSION DESVAL (17,60) 

INTEGER AA.BB,CC,DD,EEfFF,GG.HH,00,PP,QQ,RR,SS,TT,PBURX, DBURX, AUGX 
l.DUCTX 

DATA AA, BB , CC.DD, EE, FF,GG,NH, 1 1 , JJ , KK , LL »MM,HN, 00, PP.QQ, RR , SS » TT/1 
1HA.1HB.1HC.1HD.1HE.1HF.1HG, lilH, 1HI , 1HJ, INK, 1IIL • 1HM, 1HH, 1HQ, 1HP, 1HQ 
2 , 1HR , INS , 1HT/ 

READ (30,10) IX, VALUE 
10 FORMAT (A1.F20.0) 

IF (IX.EQ.AA) DESVAL ( 1 , JCXX ) = VAL UE 
IF (IX.EQ.BB) DESVAL ( 2. JCXX ) =VAL UE 
IF (IX.EQ.CC) DESVAL( 3, JCXX ) =VALUE 
IF (IX.EQ.DD) DESVAL ( 6 . JCXX ) = VAL UE 
IF (IX.EQ.EE) DESVAL( 5 , JCXX ) = VAL UE 
IF (IX.EQ.FF) DESVAL ( 6 , JCXX ) =VAL UE 


0056100 
0056200 
0056300 
0056600 
0056500 
0056600 
0056700 
0056800 
0056900 
0055000 
0055100 
0055200 
0055300 
0055600 
0055500 
0055600 
0055700 
0055800 
0055900 
0056J0B 
0056 l CO 
0056200 
0056300 
0056600 
0056500 
0056600 
0056700 
0056800 
0056900 
0057000 
0057100 
0057200 
0057300 
0057600 
0057500 
0057600 
0057700 
0057800 
0057900 
0058000 
0058100 
0058200 
0058300 
0058600 
0058500 
0058600 
0058700 
0058600 
0058900 
0059000 
0059100 
0059200 
0059300 
0059600 
0059500 
0059600 
0059700 
0059800 
0059900 
0060000 


IF CIX.EQ.GG) 
IF (IX.EQ.HH) 
IF (IX.EQ.II) 
IF (IX.EQ.JJ) 
IF ( IX. EQ.KK ) 
IF CIX.EQ.IL) 
IF (IX.EQ.M) 
IF (IX.EQ.HH) 
IF (IX.EQ.OO) 
IF (IX.EQ.PP) 
IF (IX.EQ.SS) 
RETURN 
END 


DESVAK 7,JCXX)=VALUE 
DESVAL ( JCXX)=VALUE 
DESVAK 9, JCXX ) z VALUE 
DESVALC10, JCXX )= VALUE 
DESVAL (11# JCXX )= VALUE 
DESVAL ( 12, JCXX )= VALUE 
DESVAL ( 1 3* JCXX )= VALUE 
DESVAL ( 14 , JCXX) = VALUE 
DESVAL ( 15, JCXX) = VALUE 
DESVAK 16 * JCXX )= VALUE 
DESVAL ( 17 » JCXX) = VALUE 


0060100 

0060200 

0060300 

0060400 

0060500 

0060600 

0060700 

0060500 

0060900 

0061000 

0061100 

0061200 

0061300 
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Figure 1. - Thermodynamic schematic for NNEP. 


















Figure 2. - "Actual" mechan- 
ical schematic for WATE by 
subcomponent type. 






Figure 3. - Graphics plot of engine flowpath 
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